Cách xóa các cột cụ thể khỏi tất cả các sổ làm việc excel trong một thư mục cụ thể

Tôi có một thư mục chứa khoảng 30 tệp excel. Trong mỗi tệp này, tôi cần xóa khoảng 20 cột cụ thể.

Dưới đây là một số chi tiết:

1. Tôi đang sử dụng Excel 2013
2. Các cột nằm trong bảng đầu tiên của tệp excel. mỗi tệp có thể có một vài trang tính, nhưng các cột cần xóa sẽ nằm trong trang tính đầu tiên.

3. Dưới đây là tên của các cột nhưng xin lưu ý, các cột đôi khi được lặp lại:

   Cây thạch thảo

   Ánh sáng quốc gia

   Chung

   Louisa

   Thổ địa

Rất thích sự giúp đỡ.

Không chắc chắn nếu bạn thực sự chỉ muốn một chức năng bảng tính, nhưng vì bạn không tự nghiên cứu nên tôi đoán bạn không biết bạn có những lựa chọn nào và do đó VBa sẽ đủ.

VBa này làm điều đó cho bạn nhưng nó có nghĩa là dán nó vào mỗi bảng tính, nhưng vì bạn chỉ có 30, tôi sẽ cho rằng điều này có thể quản lý được.

Sub Button1_Click()

Dim columnTitles(0 To 5) As String
    columnTitles(0) = "Heather"
    columnTitles(1) = "National Light"
    columnTitles(2) = "General"
    columnTitles(3) = "Louisa"
    columnTitles(4) = "Terruin"

Do While (True)
Dim didDelete As Boolean
didDelete = False

     Dim c As Range
        For Each c In ActiveSheet.UsedRange

             If c.Row > 1 Then
                Exit For
            End If

            For Each Title In columnTitles

                If (Title = c.Value) Then
                    Columns(c.Column).Delete
                    didDelete = True
                    Exit For
                End If

            Next
        Next c

        If (didDelete = False) Then
        Exit Do
        End If


Loop

End Sub

Trước

Sau

(Tôi biết rằng tôi đã bỏ qua National Light trong ảnh chụp màn hình, nhưng tôi đã thử nó và nó hoạt động)