用VBA从目标工作簿的第二个sheet开始,将目标工作簿的第二个sheet的第二行复制到源工作簿的第二个sheet中,第三行复制到源工作簿的第三个sheet中,第i行复制到源工作簿的第i个sheet中,直到最后一行,以此类推完成目标工作簿的所有sheet的复制
时间: 2024-03-06 14:48:41 浏览: 26
可以使用以下VBA代码实现该功能:
```
Sub CopyDataToMultipleSheets()
Dim targetBook As Workbook
Dim sourceBook As Workbook
Dim targetSheet As Worksheet
Dim sourceSheet As Worksheet
Dim lastRow As Long
Dim i As Long
'打开目标工作簿和源工作簿
Set targetBook = Workbooks.Open("目标工作簿路径")
Set sourceBook = ThisWorkbook
'循环遍历目标工作簿的所有sheet
For Each targetSheet In targetBook.Sheets
'跳过第一个sheet
If targetSheet.Index > 1 Then
'从目标工作簿的第二行开始复制
lastRow = targetSheet.Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To lastRow
'复制目标工作簿的第i行到源工作簿的第i个sheet中
Set sourceSheet = sourceBook.Sheets(i - 1)
targetSheet.Rows(i).Copy sourceSheet.Range("A1")
Next i
End If
Next targetSheet
'关闭目标工作簿
targetBook.Close SaveChanges:=False
End Sub
```
需要注意的是,该代码中的“目标工作簿路径”需要替换为实际的目标工作簿路径。同时,源工作簿的第一个sheet应该为空,以便在复制数据时能够创建新的sheet。