Question

如何编写宏来一次将43行复制到另一个选项卡中进行处理并循环执行第1行到第4300行（A-P列）的例程？对每个粘贴范围执行的处理是基于粘贴的单元格执行计算，并通过另一个宏在附加表格中捕获结果。我正在使用MS Excel 2003。

Answer 1

以下代码将Sheet1中的数据以43行的方式粘贴到Sheet2中，例如A1：P43，A44：A86等。

Sub CopyData()
    Dim iRow As Long
    Dim rng As Range

    For iRow = 1 To 4258 Step 43
        Set rng = Range("A" & iRow & ":P" & (iRow + 42))
        rng.Copy Destination:=Worksheets("Sheet2").Range("A1") //Copy into A1:P43 on Sheet2
        //Call your existing Macro here to process data?
    Next
End Sub

在Excel 2003中将行从一个选项卡复制到另一个选项卡

1 个答案: