在Excel 2003中將行從一個選項卡複製到另一個選項

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