如何将基于单元格值的行x次复制到另一个工作表中，并创建一个填充了特定内容的新列？

Sub CopyRowsAndCreateNewColumn()
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    Dim sourceRow As Range
    Dim targetRow As Range
    Dim newRow As Range
    Dim copyCount As Integer
    Dim fillContent As String
    Dim startRow As Integer
    Dim startColumn As Integer
    
    ' 设置源工作表和目标工作表
    Set sourceSheet = ThisWorkbook.Sheets("源工作表名称")
    Set targetSheet = ThisWorkbook.Sheets("目标工作表名称")
    
    ' 设置要复制的行和要填充的新列的起始位置
    Set sourceRow = sourceSheet.Range("A2:A10") ' 假设要复制的行在A2:A10范围内
    startRow = 2 ' 假设要插入新行的起始位置为第2行
    startColumn = 2 ' 假设要填充新列的起始位置为第2列
    
    ' 设置复制次数和填充内容
    copyCount = 3 ' 假设要复制3次
    fillContent = "特定内容" ' 假设要填充的内容为"特定内容"
    
    ' 循环复制行
    For Each targetRow In sourceRow.Rows
        For i = 1 To copyCount
            Set newRow = targetSheet.Rows(startRow)
            targetRow.Copy newRow
            startRow = startRow + 1
        Next i
    Next targetRow
    
    ' 循环填充新列
    For i = startRow To targetSheet.UsedRange.Rows.Count
        targetSheet.Cells(i, startColumn).Value = fillContent
    Next i
    
    ' 保存工作簿
    ThisWorkbook.Save
End Sub