[求助]复制多行直到使某单元格等于12的宏如何编写？例如：

chena88

复制多行直到使某单元格等于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

老鬼

Set cel = Range("a:a").Find(12)
Range(Cells(1, 1), cel).Copy