看起来你遇到了两个典型的VBA加载项问题：全局变量跨模块访问失败，以及ambiguous name命名冲突错误。让我一步步帮你梳理解决：

首先：排查并解决“i is an ambiguous name”错误 #

这个错误的核心原因非常明确：你的VBA加载项工程里存在多个同名的i变量（或过程）。比如：

• 可能你在某个其他模块里也用了Dim i As Integer或者Public i As Integer声明了同名变量
• 甚至可能不小心创建了一个叫i的子程序/函数

解决步骤：

1. 打开加载项的VBA编辑器，按下Ctrl+F打开搜索框
2. 搜索整个工程里的i，重点检查所有模块的变量声明部分
3. 找到重复定义的i，要么给其中一个改名，要么删除多余的声明（只保留一个全局版本）

然后：规范全局变量的声明，确保跨模块访问正常 #

虽然Global和Public在VBA标准模块中功能等价，但把全局变量集中放在一个专门的模块里，是避免作用域问题的最佳实践：

1. 新建一个全局变量模块：
   在VBA编辑器里右键点击加载项工程 → 插入 → 模块，命名为modGlobals（名字可以自定义，只要清晰好认）
2. 在这个模块里声明全局变量：

   Public i As Integer, j As Integer
   

3. 删除原主模块里的Global声明：
   把主模块开头的Global i As Integer, j As Integer删掉，避免重复定义

修改后的测试代码 #

主模块代码 #

Sub Macro1()
    MsgBox "Macro 1: " & i
    i = 100
    Macro2
    MsgBox "Macro 1: " & i
End Sub

独立模块代码 #

Sub Macro2()
    MsgBox "Macro 2: " & i
    i = 200
    MsgBox "Macro 2: " & i
End Sub

现在运行Macro1，应该就能正常在两个模块间共享i变量，不会再出现“变量未定义”或命名冲突的错误了。

额外的最佳实践（推荐） #

全局变量虽然方便，但容易导致代码耦合、难以调试，建议尽量用参数传递替代：

Sub Macro1()
    Dim localI As Integer
    MsgBox "Macro 1: " & localI
    localI = 100
    ' 将变量作为参数传递给Macro2，接收返回的修改后的值
    localI = UpdateValue(localI)
    MsgBox "Macro 1: " & localI
End Sub

' 用函数返回修改后的值，避免全局变量
Function UpdateValue(currentValue As Integer) As Integer
    MsgBox "Macro 2: " & currentValue
    currentValue = 200
    MsgBox "Macro 2: " & currentValue
    UpdateValue = currentValue
End Function

如果必须用全局变量，建议给变量加前缀（比如g_i、g_j），这样能大幅降低和局部变量重名的概率。

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