Excel VBA如何正确选中多列 解决多列隐藏/显示代码报错问题

错误原因 #

• VBA中And是逻辑运算符，仅用于布尔值判断或位运算，不能用来拼接多个列区域的地址，所以MyC = "G:I" And "T:W"行会触发类型不匹配报错。

正确实现方案 #

有两种常用实现方式，都可以稳定实现多组不连续列的隐藏/显示切换：

写法1：直接拼接多区域地址 #

多个不连续区域的地址用英文半角逗号分隔，直接作为参数传入即可，代码最简洁：

Private Sub ShowHideWST_Click()
    Dim MyC As String
    ' 多区域地址用英文逗号拼接
    MyC = "G:I,T:W"
    ' 直接赋值，无需冗余If判断
    ActiveSheet.Columns(MyC).Hidden = ShowHideWST.Value
End Sub

写法2：用Union方法合并区域对象 #

如果后续需要对目标列做多次操作，用Union合并Range对象的方式可维护性更高：

Private Sub ShowHideWST_Click()
    Dim ws As Worksheet
    Dim targetCols As Range
    ' 绑定当前工作表，避免ActiveSheet误操作其他打开的工作表
    Set ws = ActiveSheet
    ' 合并多组列区域
    Set targetCols = Union(ws.Columns("G:I"), ws.Columns("T:W"))
    targetCols.Hidden = ShowHideWST.Value
End Sub

注意事项 #

• 拼接多区域地址时必须使用英文半角逗号，不能使用中文逗号
• 实际使用时建议替换ActiveSheet为指定工作表，比如Sheet1或者ThisWorkbook.Worksheets("数据表")，避免切换工作表时触发误操作

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