Sub copyRowsToIndexSheets()
    Dim sourceWB As Workbook, targetWB As Workbook
    Dim sourceWS As Worksheet, targetWS As Worksheet
    Dim rowIndex As Long, indexSheetNum As Long
    
    '打开源工作簿
    Set sourceWB = Workbooks.Open("C:\Users\...\source.xlsx")
    
    '打开目标工作簿
    Set targetWB = Workbooks.Open("C:\Users\...\target.xlsx")
    
    '设置源工作表
    Set sourceWS = sourceWB.Worksheets("Sheet1")
    
    '循环目标工作簿中的工作表
    For indexSheetNum = 1 To 3 '这里假设目标工作簿中有3个工作表,可以根据实际情况更改
        '设置目标工作表
        Set targetWS = targetWB.Worksheets(indexSheetNum)
        
        '复制源工作表中的指定行到目标工作表
        rowIndex = 3 '这里假设要复制第3行,可以根据实际情况更改
        sourceWS.Rows(rowIndex).Copy targetWS.Rows(rowIndex)
    Next indexSheetNum
    
    '关闭工作簿
    sourceWB.Close SaveChanges:=False
    targetWB.Close SaveChanges:=True

End Sub