如何將數據從工作表復制到新工作表的次數可變？

Question

我在Sheet（2），A列到第108行中有一列標題。B到J列有與這些標題相關的數據。 我需要將列A和列B復制到Sheet（3）“X”次，基於Sheet（1）中單元格中的整數到Sheet（3）的B列和C列。 需要對每個BJ柱重復這一過程，確保取出標題列A，並根據Sheet（1）中單元格中的整數將其“X”次粘貼到Sheet B和C表（3）中。 我需要復制和粘貼，以便在最后一次粘貼數據后的行中的Sheet（3）中重復開始。

另外一個要求是每次將兩列數據[意思是A列和第（2）頁的BJ列之一]粘貼到Sheet（3）中，一年中的一周被標記在Sheet A的列中（3） ）對於基於Sheet（1）中的開始日期粘貼的每一行數據。 一年中的一周應該繼續從開始日期開始一周，每次將Sheet（2）數據粘貼到Sheet（3）中。

此外，如果再次運行VBA，則需要覆蓋粘貼的數據，而不是繼續沿着列繼續。

Answer 1

我想我理解你的問題。 此代碼獲取從Sheet1的單元格A1復制/迭代的次數，然后將數據從Sheet2（單元格B2復制到數據集的末尾）並將其多次粘貼到工作表3中：

'assumes parameter is in cell A1
num_iterations = ThisWorkbook.Worksheets("Sheet1").Range("A1")

data_last_row = Worksheets("Sheet2").Cells.Find(What:="*", SearchDirection:=xlPrevious).Row

'Copy records from data tab, assuming data starts in B2
Worksheets("Sheet2").Range("B2:B" & data_last_row).Copy

For i = 1 To num_iterations
    output_last_row = Worksheets("Sheet3").Cells.Find(What:="*", SearchDirection:=xlPrevious).Row
    Worksheets("Sheet3").Cells(output_last_row + 1, 1).PasteSpecial 
Next i