Làm cách nào để ẩn các cột trên nhiều trang tính trong một sổ làm việc?

Trong Excel, chúng ta có thể nhanh chóng ẩn các cột trong một trang tính, nhưng bạn đã bao giờ cố gắng ẩn các cột trên nhiều trang tính cùng một lúc chưa? Thông thường, bạn có thể cố gắng chọn tất cả các trang tính và áp dụng tính năng Ẩn, nhưng nó sẽ không hoạt động thành công. Bài viết này, tôi sẽ nói về cách ẩn các cột trên nhiều trang tính một cách nhanh chóng?

Ẩn các cột trên nhiều trang tính trong một sổ làm việc với mã VBA

Ẩn các cột trên nhiều trang tính trong một sổ làm việc với mã VBA

Đoạn mã sau có thể giúp bạn ẩn các cột cụ thể trên tất cả các trang tính ngay lập tức, vui lòng thực hiện như sau:

1. Giữ ALT + F11 phím để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.

2. Nhấp chuột Chèn > Mô-đunvà dán mã sau vào Mô-đun Cửa sổ.

Mã VBA: Ẩn các cột trên nhiều trang tính cùng một lúc:

 Sub Hide_Columns()
'Updateby Extendoffice
    Dim iWs As Integer
    Dim sCol As String
    On Error Resume Next
    sCol = Application.InputBox("Input entire column,Eg A:A OR A:B", _
                                "Kutools for Excel", , , , , , 2)
    If sCol = "" Then
        MsgBox "Empty columns", vbInformation, "Kutools for Excel"
        Exit Sub
    End If
    For iWs = 1 To ThisWorkbook.Worksheets.Count
        ThisWorkbook.Sheets(iWs).Columns(sCol).Hidden = True
    Next iWs
    On Error GoTo 0
End Sub

3. Sau đó nhấn F5 để chạy mã này và một hộp nhắc xuất hiện để nhắc bạn nhập các cột mà bạn muốn ẩn trên tất cả các trang tính, xem ảnh chụp màn hình:

4. Và sau đó nhấp vào OK , các cột được chỉ định của bạn đã bị ẩn trong tất cả các trang tính cùng một lúc.