ẩn dòng trong excel

[thuy hang hanh]

Mình có một bảng tính,mình muốn ẩn cột nhưng cách một cột mình ẩn một cột mình phải làm như thế nào để ẩn cùng một lúc không bôi đen cách cột?

 

[hoamattroicoi]

Mình có một bảng tính,mình muốn ẩn cột nhưng cách một cột mình ẩn một cột mình phải làm như thế nào để ẩn cùng một lúc không bôi đen cách cột?

Bạn thử code này coi :

Sub anCot()


Dim i As Long

For i = 1 To 256

    If Cells(1, i).Column Mod 2 = 1 Then

        Cells(1, i).EntireColumn.Hidden = True
   
    End If

Next i

End Sub

Hoặc thế này đơn giản hơn :

Sub anCot()
Dim i As Long

    For i = 1 To 256 Step 2

        Cells(1, i).EntireColumn.Hidden = True

    Next i

End Sub