Using Excel VBA to Hide Columns Based on Criteria

The sample dataset showcases: Salesman, Product, and Net Sales.

To hide columns based on specific criteria.

Example 1 – Apply Excel VBA to Hide Columns Based on the Cell Value

Hide a column based on a cell value.

X is displayed in a cell. To hide the entire column:

STEPS:

Go to the Developer tab.
Select Visual Basic.

In the VBA window, select Insert.
Choose Module.

Enter the following code.

Sub HideCol_CellValue()
Dim c As Range
For Each c In ActiveWorkbook.ActiveSheet.Rows("10").Cells
If c.Value = "X" Then
c.EntireColumn.Hidden = True
End If
Next c
End Sub

Save the file and press F5 to run the code.
Close the VBA window.

This is the output.

Example 2 – Hide Columns Based on Criteria in Real-time with Excel VBA

STEPS:

Double-click the sheet name.
Click View Code.

In the VBA window, enter the following code.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("G4").Value = "Product" Then
Columns("D").EntireColumn.Hidden = True
ElseIf Range("G4").Value = "Net Sales" Then
Columns("C").EntireColumn.Hidden = True
End If
End Sub

In G4, enter Product.
The Net Sales column is hidden.

Example 3 – Embed VBA to Hide a Single Column in Excel

STEPS:

Go to the Developer tab.
Select Visual Basic.
In the VBA window, select Insert.
Choose Module.
Enter the following code.

Sub Hide_Column()
    Columns("C").Hidden = True
End Sub

Press F5 to run the code.

It will hide column C.

Example 4 – Hide Multiple Columns in Excel with VBA

Hide multiple columns.

Go to the Developer tab.
Select Visual Basic.
In the VBA window, select Insert.
Choose Module.
Enter the following code.

Sub Hide_MultipleColumns()
    Columns("C:D").EntireColumn.Hidden = True
End Sub

Press F5 to run the code.

Columns C and D are hidden.

Example 5 – Use VBA to Hide Alternate Columns

Hide columns C and E.

STEPS:

Go to the Developer tab.
Select Visual Basic.
In the VBA window, select Insert.
Choose Module.
Enter the following code.

Sub Hide_AlternativeColumns()
    Dim p As Integer
    For p = 2 To 4
        Cells(1, p + 1).EntireColumn.Hidden = True
        p = p + 1
    Next p
End Sub

Save the file.
Press F5 to run the code.

It will hide columns C and E.

Example 6 – Hide Empty Columns with VBA in Excel

Column C is empty.

STEPS:

Go to the Developer tab.
Select Visual Basic.
In the VBA window, select Insert.
Choose Module.
Enter the following code.

Sub Hide_EmptyColumns()
    Dim p As Integer
    For p = 2 To 4
       If Cells(4, p).Value = "" Then
             Columns(p).Hidden = True
       End If
    Next p
End Sub