Office中国论坛/Access中国论坛

标题: [求助]复制多行直到使某单元格等于12的宏如何编写？例如： [打印本页]

作者: chena88 时间: 2006-9-18 19:40
标题: [求助]复制多行直到使某单元格等于12的宏如何编写？例如：
复制多行直到使某单元格等于12的宏如何编写？例如：

Sub 宏5()

'

' 宏5 Macro

' chenb792 记录的宏 2005-10-22

'

' 快捷键: Ctrl+Shift+C

'

Rows("3:70").Select（开始）

Range("A70").Activate

Selection.Copy

Rows("2:69").Select

Range("A69").Activate

ActiveSheet.Paste

Sheets("Sheet2").Select

Rows("3:70").Select

Range("A70").Activate

Selection.Copy

Rows("2:69").Select

Range("A69").Activate

ActiveSheet.Paste

Sheets("Sheet1").Select（如果A71不等于12，则回到 Rows("3:70").Select重新开始复制直至A71=12后停止

End Sub

作者: 老鬼 时间: 2006-9-19 05:30
Set cel = Range("a:a").Find(12)
Range(Cells(1, 1), cel).Copy

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)