如何将适配地理编码器的Excel VB宏设为所有工作簿通用工具？

没问题！要让你的Excel数据格式化脚本变成所有工作簿都能直接调用的工具，最实用的方案是借助个人宏工作簿（Personal.xlsb）——这是Excel自带的专属宏容器，每次启动Excel都会自动加载，完美实现跨工作簿调用。下面是一步步的操作指南：

步骤1：准备个人宏工作簿（如果还没有的话） #

如果之前从未使用过个人宏，Excel默认不会创建这个文件，你可以先录制一个临时宏来生成它：

• 打开任意空白Excel文件，点击「开发工具」选项卡（如果没显示，去文件→选项→自定义功能区勾选）
• 点击「录制宏」，宏名随便填，保存位置选「个人宏工作簿」，然后点击「确定」
• 随便做个简单操作（比如输入一个字符），再点击「停止录制」
• 按Alt+F11打开VBA编辑器，你就能看到左侧项目窗口里出现Personal.xlsb了

步骤2：把你的VB脚本导入到Personal.xlsb #

• 在VBA编辑器左侧，右键点击Personal.xlsb下的「模块」文件夹，选择「插入→模块」
• 把你现有的VB代码粘贴到这个新模块里
• 关键修改：确保代码作用于当前活动工作簿，而不是固定的某个工作簿。比如把代码里的ThisWorkbook替换成ActiveWorkbook，这样不管打开哪个xls文件，脚本都会处理当前打开的文件
• 记得在代码末尾加上保存语句：ActiveWorkbook.Save，这样运行完自动保存更改

步骤3：给脚本设置一键调用的按钮 #

你可以选择两种快捷方式，按需选一个：

选项A：添加到快速访问工具栏（最方便） #

• 点击Excel顶部快速访问工具栏的下拉箭头（就是保存、撤销右边的小箭头），选择「其他命令」
• 在弹出的窗口里，「选择命令来自」选「宏」，找到你刚才导入的宏（名字就是你代码里的Sub名称）
• 点击「添加」把它移到右侧列表，还可以点击「修改」给它换个直观的图标（比如一个格式化的图标）
• 点击「确定」后，这个按钮就会出现在快速访问工具栏，不管打开哪个工作簿都能直接点击运行

选项B：添加到右键菜单（可选） #

如果你更喜欢右键调用，也可以通过VBA给右键菜单添加命令：

• 回到Personal.xlsb的模块里，添加这段代码：

Sub AddRightClickMenu()
    Dim cmdBar As CommandBar
    Dim cmdBarControl As CommandBarControl
    
    ' 删除已存在的菜单避免重复
    On Error Resume Next
    CommandBars("Cell").Controls("格式化地理编码数据").Delete
    On Error GoTo 0
    
    ' 创建右键菜单命令
    Set cmdBar = CommandBars("Cell")
    Set cmdBarControl = cmdBar.Controls.Add(Type:=msoControlButton)
    With cmdBarControl
        .Caption = "格式化地理编码数据"
        .OnAction = "你的宏名称" ' 替换成你自己的宏Sub名称
        .FaceId = 59 ' 可选：设置图标，FaceId对应不同图标
    End With
End Sub

• 运行一次这个AddRightClickMenu宏，之后右键点击单元格就能看到这个命令了

注意事项 #

• Personal.xlsb默认是隐藏的，要编辑的话，在Excel里点击「视图→取消隐藏」，选中它即可
• 确保Excel的宏安全性设置允许运行信任位置的宏：文件→选项→信任中心→信任中心设置→宏设置，选「启用所有宏（不推荐；可能会运行不安全的代码）」或者「启用信任位置的所有宏」
• 如果你的脚本里有依赖特定单元格位置的逻辑，要确保导出的Excel数据格式固定，不然可能出错

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