2 【已解决】 Excel如何将多个sheet中的指定单元格数据复制到单个sheet中？
最佳答案 2023-04-10 23:00
在Excel中，可以通过编写宏（VBA代码）来实现将多个工作簿中的A19单元格数据依次复制到一个工作簿的A1到A200单元格中。具体操作步骤如下：
- 按下 Alt + F11 键打开 Visual Basic 编辑器；
- 在项目资源管理器窗口中右键点击“VBAProject（Workbook名称）”，选择插入 - ?？椋?/li>
- 在新建的?？橹惺淙胍韵麓耄?/li>
Sub copyData()
'申明范围
Dim i As Integer, j As Integer
Dim sht As Worksheet
Dim dest As Worksheet
'定义目标表格
Set dest = ThisWorkbook.Worksheets("Sheet0")
'循环每个表格
For i = 1 To 200
'打开源表格
Set sht = Workbooks("要复制数据的工作表.xlsx").Worksheets("Sheet" & i)
'复制数据
dest.Range("A" & i) = sht.Range("A19")
Next
End Sub- 保存文件，然后关闭 VBA 编辑器；
- 在 Excel 中打开要操作的工作簿，并按下 Alt + F8 打开宏对话框；
- 选择刚刚编写的“copyData”宏并运行即可。
通过上述步骤，就可以快速地将多个工作表中的 A19 单元格数据依次复制到一个工作表的 A1 到 A200 单元格中了。
感谢您的支持，请随意打赏。您的赞赏将鼓励我继续创作！
Excel搬运工
- Excel大神
扫码关注微信公众号
