如何使用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