VBA Hide Columns

Excel VBA Hide Columns

Hiding is a 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.

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 the “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.

How to Hide Columns in VBA?

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

Example #1 – 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 – Hide using Columns Property

If you want to hide the column using Columns property, then the 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 the 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 – Hide Multiple Columns

We can hide multiple columns at a time as well. We need to mention the first and the last column so that in between columns 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 – 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 – Hide Every Alternative Column

Assume you have data, something like the below image.

We need to hide every alternative column, which is blank. We need to use loops; the 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 – 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, the 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 – Hide Columns Based On Cell Value

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

Here I want to hide all the columns if the heading is “No.” The 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 and the practical examples and downloadable excel sheet. You can learn more about VBA from the following articles –

• What is Intersect in Excel VBA?
• Change Directory in VBA
• VBA Collections
• InputBox in VBA