Giúp em ẩn các cột không sử dụng

[khoctham2201]

E có file excel như vây. e định xài VBA để ẩn các cột trắng (trong cột đó có công thức). nhờ các a giúp giùm em.

 

[Maika8008]

E có file excel như vây. e định xài VBA để ẩn các cột trắng (trong cột đó có công thức). nhờ các a giúp giùm em.

Code:

Sub AnCotTrong()
    Dim endR&, endC&, c&, r&, arr, Rng As Range
    
    With Sheet4
        endR = .Range("C" & Rows.Count).End(xlUp).Row
        endC = .Cells(2, Columns.Count).End(xlToLeft).Column
        arr = .Range("A4", .Cells(endR, endC))
        For c = 4 To endC
            For r = 1 To UBound(arr)
                If arr(r, c) <> 0 And arr(r, c) <> "" Then Exit For
            Next
            If r > UBound(arr) Then
                If Rng Is Nothing Then
                    Set Rng = .Cells(4, c)
                Else
                    Set Rng = Union(Rng, .Cells(4, c))
                End If
            End If
        Next
        Rng.EntireColumn.Hidden = True
    End With
End Sub