用VBA实现把多个Excel文件合并到一个Excel文件的多个工作表✨

在日常工作中，我们经常需要处理大量Excel数据，而这些数据往往分散在不同的文件中。手动复制粘贴不仅耗时，还容易出错。此时，利用VBA（Visual Basic for Applications）脚本，可以轻松地将多个Excel文件中的内容合并到一个Excel文件的不同工作表中，从而大大提升工作效率和准确性。

首先，确保你已经开启了Excel的开发者模式，以便能够编写和运行VBA代码。接着，在Excel中按下`Alt + F11`打开VBA编辑器，插入一个新的模块，然后复制并粘贴以下代码：

```vba

Sub 合并文件()

Dim 文件路径 As String, 文件名 As String

文件路径 = "C:\Users\你的用户名\Desktop\"

文件名 = Dir(文件路径 & ".xlsx")

Do While 文件名 <> ""

Workbooks.Open 文件路径 & 文件名

Sheets(1).Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)

ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count).Name = 文件名

ActiveWorkbook.Close False

文件名 = Dir()

Loop

End Sub

```

请根据实际需要修改代码中的文件路径。最后，点击运行按钮执行这段代码，所有指定文件夹下的Excel文件就会被依次合并到当前工作簿的不同工作表中了。🚀

这样，你就无需再花费大量时间手动操作，节省下来的时间可以用来做更有价值的工作啦！💼