VBA Hide Columns

How to Hide Columns in VBA?

Hiding is the simple thing but you need to understand the concept here. To hide the column using VBA, we need to determine which column we need to hide. To specify the column to be hidden we need to use the RANGE object. In the RANGE object, we need to specify the column we are hiding.

Range("A:A")

Then we need to use the Property “Entire Column”.

Range("A:A").EntireColumn

In the entire column property, we need to use “Hidden” property.

Range("A:A").EntireColumn.Hidden

Then, at last, we need to set the Hidden property to TRUE.

Range("A:A").EntireColumn.Hidden = TRUE

This will hide column A.

Examples to Hide Column in VBA

We can hide columns in excel VBA in several ways. We can hide a column by using a Range object, we can hide columns by using CELLS property. Based on the method we use we need to construct our VBA code.

Example #1 – VBA Hide using Range Object

If you want to hide a particular column then specify the column inside the RANGE object. Look at the below data.

Now we will hide the entire column A using the following code.

Code:

Sub Range_Hide()

    Range("A:A").EntireColumn.Hidden = True

End Sub

So when we run the code we will get the following result.

Example #2 – VBA Hide Using Columns Property

If you want to hide the column using Columns property then below code is for you.

Code:

Sub Range_Hide()

    Columns("B").Hidden = True

End Sub

This will hide column B. Here you must be thinking where Entire Column property is. When you use Columns property it is not necessary to use the Entire Column property.

We can still use the Entire Column property but not necessarily required. And Code for the same is given below.

Code:

Sub Columns_Hide()

    Columns("B").EntireColumn.Hidden = True

End Sub

This also should work fine.

We can use the column number as well instead of alphabetic reference. And Code for the same is given below.

Code:

Sub Columns_Hide()

    Columns(4).EntireColumn.Hidden = True

End Sub

This will hide the Column “D”.

Example #3 – VBA Hide Multiple Columns

We can hide multiple columns at a time as well. For this, we need to mention the first and the last column, so that in between column also will be hidden. For the same data as example #1 use the following code to hide multiple columns.

Code:

Sub Columns_Hide()

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

End Sub

This will hide column A to C.

We can use the following code as well to hide multiple columns in Excel VBA.

Code:

Sub Multi_Columns_Hide()

    Columns("A:C").EntireColumn.Hidden = True

End Sub

The above methods will hide the first three columns i.e. A, B, and C.

Example #4 – VBA Hide Columns With Single Cell

We can also hide a column based on a single cell reference. We don’t need to give the full column reference to hide the column. With just a single cell reference we should be able to hide a column.

Code:

Sub Single_Hide()

    Range("A5").EntireColumn.Hidden = True

End Sub

This will hide the entire column A.

Example #5 – VBA Hide Every Alternative Column

Assume you have a data something like the below image.

We need to hide every alternative column which is blank. For this to happen we need to use loops, below code will do the job for us.

Code:

Sub AlternativeColumn_Hide()

    Dim k As Integer

    For k = 1 To 7
        Cells(1, k + 1).EntireColumn.Hidden = True
        k = k + 1
    Next k

End Sub

This will hide every alternate column.

Example #6 – VBA Hide Every Empty Column

In the previous example every other alternative column was blank we have hidden easily. But look at the below data.

Here empty columns pattern is not standard. In these cases below code will hide all the empty columns, it doesn’t matter what the pattern is.

Code:

Sub Column_Hide1()

    Dim k As Integer

    For k = 1 To 11
       If Cells(1, k).Value = "" Then
             Columns(k).Hidden = True
       End If
    Next k

End Sub

When you run the code you will get the result as follows.

Example #7 – VBA Hide Columns Based on Cell Value

Now we will see how to hide column based on the cell value. For an example look at the below data.

Here I want to hide all the columns if the heading is “No”. Below code will do it for me.

Code:

Sub Column_Hide_Cell_Value()

    Dim k As Integer

    For k = 1 To 7
        If Cells(1, k).Value = "No" Then
           Columns(k).Hidden = True
        End If
    Next k

End Sub

When you run the code you will get the result as follows.

Recommended Articles

This has been a guide to VBA Hide Columns. Here we discuss how to hide columns in VBA Excel along with the practical examples and downloadable excel sheet. You can learn more about VBA from the following articles –

• Comment Block of Code in VBA
• What is Intersect in Excel VBA?
• Change Directory in VBA
• What is Collection Object in VBA?
• Delete Column using VBA
• InputBox in VBA
• How to Select Cell using VBA
• Freeze Excel Columns