可以通过VBA代码来实现自动复制另一个Excel中的数据。
1. 首先需要打开目标Excel文件和当前操作的Excel文件，并将目标Excel文件设置为工作簿变量；2. 接着通过代码读取目标Excel中的具体数据，并将其赋值给当前操作的Excel文件;3. 最后保存当前操作的Excel文件即可。
需要注意的是，具体的代码实现需要根据目标文件中数据的具体情况进行调整，以保证复制的准确性和完整性。
要在VBA中自动复制另一个Excel中的数据，您需要使用以下步骤：
1.打开另一个Excel文件：使用以下代码从VBA中打开另一个Excel文件。
```
Dim anotherExcel As Workbook
Set anotherExcel = Workbooks.Open("filepath")
```
2.选择要复制的数据：使用以下代码在另一个Excel文件中选择要复制的数据。
```
Dim anotherSheet As Worksheet
Set anotherSheet = anotherExcel.Sheets("sheetname")
anotherSheet.Range("A1:G10").Select '例如，选择A1:G10范围内的单元格。
```
3.复制所选的数据：使用以下代码将所选的数据复制到剪贴板中。
```
Selection.Copy
```
4.在当前工作簿中粘贴数据：使用以下代码将所选的数据粘贴到当前工作簿中。
```
Dim currentSheet As Worksheet
Set currentSheet = ThisWorkbook.Sheets("sheetname")
currentSheet.Range("A1").PasteSpecial xlPasteAll '将数据粘贴到当前工作簿的A1单元格中。
```
5.关闭另一个Excel文件：使用以下代码关闭另一个Excel文件。
```
anotherExcel.Close
```
以上是在VBA中自动复制另一个Excel中的数据的步骤。按照这些步骤，您可以轻松地复制和粘贴另一个Excel文件中的数据。
