求助：在VBA中使用全局变量实现列隐藏的引用问题

我来帮你搞定这个VBA全局变量的引用问题，踩过类似的坑，给你一步步捋清楚：

1. 确保全局变量的定义完全正确 #

首先，全局变量必须放在标准模块（比如你的Module1）的通用声明段（也就是所有过程之外的顶部），不能嵌套在Sub或Function里。正确的写法如下：

' 打开Module1的代码窗口，粘贴这段在最顶部
Option Explicit ' 强制变量声明，避免拼写错误
Public CountryVariable As String ' 全局变量，所有模块都能访问

2. 在Country工作表正确赋值全局变量 #

你需要在Country工作表的事件里，当用户选择国家时给CountryVariable赋值。推荐用Worksheet_Change事件（当单元格内容变化时触发），比如假设用户在A1单元格通过下拉菜单选择国家：

' 右键点击"Country"工作表标签 → 查看代码，粘贴这段
Private Sub Worksheet_Change(ByVal Target As Range)
    ' 只监听A1单元格的变化（可根据实际修改单元格地址）
    If Not Intersect(Target, Me.Range("A1")) Is Nothing Then
        ' 直接赋值给全局变量，无需额外前缀
        CountryVariable = Target.Value
        
        ' 可选：赋值后强制触发其他工作表的激活事件，立即更新列显示
        Sheet2.Activate ' 替换成你需要自动刷新的工作表名称
    End If
End Sub

3. 在其他工作表引用全局变量控制列显示 #

在目标工作表的Worksheet_Activate事件里，直接调用CountryVariable来写逻辑。这里给你一个示例，你可以根据实际需求修改列和判断条件：

' 打开需要控制列的工作表（比如Sheet2）的代码窗口，粘贴这段
Private Sub Worksheet_Activate()
    ' 先判断全局变量是否有值，避免空值导致错误
    If CountryVariable <> "" Then
        Select Case CountryVariable
            Case "China"
                Me.Columns("B").Hidden = False ' 显示B列
                Me.Columns("C").Hidden = True  ' 隐藏C列
            Case "USA"
                Me.Columns("B").Hidden = True  ' 隐藏B列
                Me.Columns("C").Hidden = False ' 显示C列
            Case Else
                ' 默认情况：隐藏指定列或者显示全部，按需调整
                Me.Columns("B:C").Hidden = True
        End Select
    Else
        ' 如果还没选择国家，默认显示所有列并提示
        Me.Columns("B:C").Hidden = False
        MsgBox "请先在Country工作表选择国家！"
    End If
End Sub

避坑提示 #

• 不要把全局变量放在工作表模块里：如果把Public CountryVariable写在Country工作表的代码里，其他工作表无法直接访问，必须通过Sheet("Country").CountryVariable调用，这不是真正的全局变量。
• 变量会被重置：全局变量在Excel重启、代码编辑后运行（重置工程）会清空，你可以在Workbook_Open事件里初始化它，比如默认赋值一个国家。
• 明确触发时机：如果用户切换工作表时需要实时更新，Worksheet_Activate是合适的，但如果需要在Country工作表赋值后立即更新所有相关工作表，你可以在赋值后循环遍历工作表并调用刷新逻辑。

内容的提问来源于stack exchange，提问作者James O'Sullivan