Excel VBA自动根据单元格值复制整行"X“次，并粘贴到单独的工作表中

Sub CopyRowsToNewSheet()
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim copyCount As Long
    
    ' 设置源工作表和目标工作表
    Set sourceSheet = ThisWorkbook.Sheets("Sheet1") ' 将"Sheet1"替换为源工作表的名称
    Set targetSheet = ThisWorkbook.Sheets.Add ' 创建一个新的工作表作为目标工作表
    
    ' 获取源工作表中最后一行的行号
    lastRow = sourceSheet.Cells(sourceSheet.Rows.Count, "A").End(xlUp).Row
    
    ' 设置复制次数
    copyCount = 3 ' 将3替换为需要复制的次数
    
    ' 循环复制行并粘贴到目标工作表中
    For i = 1 To lastRow
        ' 复制整行
        sourceSheet.Rows(i).Copy
        
        ' 在目标工作表中粘贴
        targetSheet.Cells(i, 1).PasteSpecial Paste:=xlPasteAll ' 将1替换为目标工作表中的起始列号
        
        ' 根据复制次数继续粘贴
        For j = 2 To copyCount
            sourceSheet.Rows(i).Copy
            targetSheet.Cells(i + (j - 1) * lastRow, 1).PasteSpecial Paste:=xlPasteAll ' 将1替换为目标工作表中的起始列号
        Next j
    Next i
    
    ' 清除剪贴板内容
    Application.CutCopyMode = False
    
    ' 设置目标工作表的名称
    targetSheet.Name = "CopiedRows" ' 将"CopiedRows"替换为目标工作表的名称
End Sub