在Excel中,可以通过编写宏(VBA代码)来实现将多个工作簿中的A19单元格数据依次复制到一个工作簿的A1到A200单元格中。具体操作步骤如下:
- 按下 Alt + F11 键打开 Visual Basic 编辑器;
- 在项目资源管理器窗口中右键点击“VBAProject(Workbook名称)”,选择插入 - 模块;
- 在新建的模块中输入以下代码:
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 单元格中了。