如何使用VBA中的“ If Columns”选择多个列范围？

Question

我在切换按钮上使用此代码来隐藏/显示电子表格中的列。

Sub Button22_Click()
If Columns("D:E").Hidden = True Then
Columns("D:E").Hidden = False
Else
Columns("D:E").Hidden = True
End If
End Sub

此公式非常适合D：E列。 问题是，如何在此公式中添加其他列（单列和范围）？ 假设我还需要使用相同的按钮来显示/隐藏F：K和N ？ 我已经尝试过类似（“ D：E”，“ F：K”）之类的事情，但出现运行时错误。 任何帮助都非常感谢。

Answer 1

只是一种语法，用于隐藏一组不相交的列：

Sub dural()
   Range("D:E,L:L").EntireColumn.Hidden = True
End Sub

这将隐藏列D，E和L。

Answer 2

您必须使用Range对象。

Range("D:E,F:K,N:N").Select
Selection.Hidden = True

https://msdn.microsoft.com/en-us/library/office/ff838238.aspx

更新：

您的代码应如下所示：

Sub Button22_Click()
    Range("D:E,F:K,N:N").Select
    Selection.EntireColumn.Hidden = Not Selection.EntireColumn.Hidden
End Sub