如何使用Excel VBA为不同工作簿实现列移动功能

刚好碰到过类似的需求，给你几个实用的修改方案，根据你的使用场景选就行：

场景1：宏直接在目标工作簿里运行 #

如果你的VBA代码是保存在你要操作的那个工作簿里，那完全不用手动指定文件名，直接替换掉原来的Open代码就行：

原来的硬编码行：

Set objWorkbook = objExcel.Workbooks.Open("Referrals")

改成：
Set objWorkbook = ThisWorkbook

ThisWorkbook是VBA里专门指向「包含当前运行代码的工作簿」的对象，不管你把这个工作簿重命名成啥，它都能精准定位到，完美适配不同文件名。

场景2：宏在通用工作簿（比如Personal宏工作簿），操作当前激活的工作簿 #

如果你的宏是存在一个通用工具工作簿里，需要处理当前打开并激活的工作簿，那就用：
Set objWorkbook = ActiveWorkbook

这个对象会直接指向Excel当前窗口中处于激活状态的工作簿，只要你运行宏前先打开并选中目标工作簿，就不用改任何代码。

场景3：需要用户手动选择要操作的工作簿（最灵活的通用方案） #

如果要让脚本适配完全未知的工作簿，甚至让其他用户也能方便使用，那可以加个文件选择窗口，让用户自己选文件：

Dim filePath As Variant
' 弹出文件选择框，只显示Excel格式文件
filePath = Application.GetOpenFilename("Excel文件 (*.xlsx;*.xls), *.xlsx;*.xls")

' 如果用户选择了文件，才继续执行
If filePath <> False Then
    Set objWorkbook = objExcel.Workbooks.Open(filePath)
    ' 这里放你原来的跨工作表列移动代码
End If

这样用户运行宏时会弹出熟悉的文件选择窗口，选好后脚本自动打开并处理，完全不用在代码里写死任何文件名，通用性拉满。

小提醒 #

• 用ThisWorkbook时，别把宏存在个人宏工作簿（Personal.xlsb）里，不然它会指向个人宏工作簿而不是目标文件
• 用ActiveWorkbook时，运行宏前确保目标工作簿是当前激活的，避免误操作其他打开的工作簿

内容的提问来源于stack exchange，提问作者Dylan Lam