Excel循环VBAmacros将增量单元格范围复制到新工作表

我正在尝试制作一个Excel VBmacros，它将每个列中的增量单元格复制到一张新的表格中，以便稍后以sps或jamovi的forms导出为csv进行统计分析。

例如，如果我有A1：A50和B1：B50的数据，我想复制A1：A（i）＆B1：B（i）到工作表（i），i = i + 1，然后复制新的范围A1：A（i）＆B1：B（i）到新工作表。

像这样的东西？ （修改从Excel循环VBAmacros复制单元格到新工作表和导出数据到CSV – Excel VBA ）

Dim Static As Excel.Worksheet Dim Temp As Excel.Worksheet Dim i As Integer Set Static = ActiveWorkbook.Worksheets("WIP_List") i = 1 'initial value of i 'Copies incremental range to new sheets Do While IsEmpty(Static.Range("A" & i).Value) = False 'loops through Set Temp = ActiveWorkbook.Worksheets("set (" & i & ")") Static.Range("A1" & : & "A" & i).Copy _ Destination:=Temp.Cell("A1") 'This part exports the worksheet as a csv Set ws = ThisWorkbook.Worksheets(i) PathName = "" & ThisWorkbook.Path & "\" & ws.Name & ".csv" ws.Copy ActiveWorkbook.SaveAs Filename:=PathName, _ FileFormat:=xlCSV, CreateBackup:=False i = i + 1 Loop 

这个想法是，如果我有N个样本，它将创buildN个工作表，每个工作表有i + 1个行数。