Excel VBA在一行代码中隐藏多个列

我想在VBA中，在下面显示的一行中隐藏几个彼此不接近的列，但它不起作用。怎么了

Columns("A, C:D").hidden = True

使用Range.EntireColumn

，并证明联合也是另一种选择

注意.entireclumn是必需的；省略它将抛出一个错误

运行时错误“1004”：

无法设置Range类的隐藏属性

使用Range.EntireColumn

，并证明联合也是另一种选择

注意.entireclumn是必需的；省略它将抛出一个错误

运行时错误“1004”：

无法设置Range类的隐藏属性

使用Union隐藏列 最好的答案已经贴出来了，所以这里有一个作弊的答案：它是一行，但是使用了一个带有“多行”的函数。 选项显式 亚隐柱 组合列活动表，A，C，H，K:M，O，R:U.Hidden=True 端接头 函数组合列_ ByVal ws作为工作表_ ByVal列以字符串形式列出_ 可选的ByVal分隔符，字符串=_ As范围 将Cols标注为字符串：Cols=SplitColumnsList，分隔符 变暗rg As范围 长 对于n=0到UBoundCols 如果rg什么都不是，那么 设置rg=ws.columnsclsn 其他的 设置rg=Unionrg，ws.columnsclsn 如果结束 下一个 如果不是，那么rg什么都不是 设置CombinedColumns=rg.EntireColumn 如果结束 端函数 使用Union隐藏列 最好的答案已经贴出来了，所以这里有一个作弊的答案：它是一行，但是使用了一个带有“多行”的函数。 选项显式 亚隐柱 组合列活动表，A，C，H，K:M，O，R:U.Hidden=True 端接头 函数组合列_ ByVal ws作为工作表_ ByVal列以字符串形式列出_ 可选的ByVal分隔符，字符串=_ As范围 将Cols标注为字符串：Cols=SplitColumnsList，分隔符 变暗rg As范围 长 对于n=0到UBoundCols 如果rg什么都不是，那么 设置rg=ws.columnsclsn 其他的 设置rg=Unionrg，ws.columnsclsn 如果结束 下一个 如果不是，那么rg什么都不是 设置CombinedColumns=rg.EntireColumn 如果结束 端函数

Range("A:A,C:D").EntireColumn.Hidden = True