Вопрос по Excel VBA: Удаление нескольких столбцов на нескольких листах в нескольких книгах, которые соответствуют определенным критериям.

Question 1

Мне нужно обновить 100-ы Excel рабочие книги; каждая книга имеет несколько листов (не фиксированное количество, но максимум 50);

Идея заключается в том, чтобы написать код VBA (используя Excel 2010), чтобы пройтись по всем листам и удалить целые столбцы на основе критериев. Каждый лист имеет заголовочный столбец, который начинается с:

Дата ; 2024-09-20 ; 2023-02-06 ; 2020-01-01 ; 2019-02-09 ; 1999-09-09 и так далее
Даты переменные.

Я хочу удалить все столбцы, которые относятся к 2019 году или ранее. Я совсем новичок, но это сэкономит мне много усилий; вот что я придумал, используя ответы из других постов, но это почему-то не срабатывает. На самом деле, каждый раз, когда макрос запускается, он не удаляет все столбцы на всех листах; мне нужно запустить его несколько раз и на каждом отдельном листе. Кроме того, столбцы не удаляются, а вместо этого просто очищаются данные из столбца, и пустой столбец все еще существует. Полностью в тупике.

Dim a As Long, w As Long, match1 As String
With ThisWorkbook
    For w = 1 To .Worksheets.Count
        With Worksheets(w)
            
        For i = 50 To 1 Step -1
            match1 = CStr(Cells(1, i))
            If match1 Like "201?-*" Then
                Columns(i).EntireColumn.Delete
            End If
            If match1 Like "200?-*" Then
                Columns(i).EntireColumn.Delete
            End If
            If match1 Like "199?-*" Then
                Columns(i).EntireColumn.Delete
            End If
            If match1 Like "198?-*" Then
                Columns(i).EntireColumn.Delete
            End If            
        Next i
       End With
    Next w
End With

Помогите, буду очень признателен.

Question 2

Это не было тщательно протестировано, кроме hastily сделанной папки с тремя электронными таблицами, поэтому я бы предложил действовать осторожно и протестировать это сначала на каких-то тестовых данных на всякий случай:

Sub DeleteOldDateColumnsInDirectory()
    Dim folderPath As String
    Dim fileName As String
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim col As Integer
    Dim headerDate As Date
    
    ' Укажите путь к папке (обновите это до вашей директории)
    folderPath = "C:\folderpath\etc\"
    
    ' Отключите обновление экрана и автоматические вычисления для повышения производительности
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    
    ' Получите первый .xlsx файл в папке
    fileName = Dir(folderPath & "*.xlsx")
    
    ' Цикл по каждому файлу в папке
    Do While fileName <> ""
        ' Откройте рабочую книгу
        Set wb = Workbooks.Open(folderPath & fileName)
        
        ' Цикл по каждому листу в рабочей книге
        For Each ws In wb.Worksheets
            ' Начните с последнего столбца и двигайтесь назад
            For col = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column To 1 Step -1
                On Error Resume Next
                ' Попробуйте интерпретировать заголовок как дату
                headerDate = CDate(ws.Cells(1, col).Value)
                On Error GoTo 0
                
                ' Если это дата и 2019 год или ранее, удалите столбец
                If IsDate(headerDate) And Year(headerDate) <= 2019 Then
                    ws.Columns(col).Delete
                End If
            Next col
        Next ws
        
        ' Сохраните и закройте рабочую книгу
        wb.Close SaveChanges:=True
        
        ' Перейдите к следующему файлу
        fileName = Dir
    Loop
    
    ' Включите обновление экрана и вычисления
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
    
    MsgBox "Столбцы удалены во всех рабочих книгах в папке."
End Sub

Вопрос по Excel VBA: Удаление нескольких столбцов на нескольких листах в нескольких книгах, которые соответствуют определенным критериям.

Вопрос или проблема

Ответ или решение

Вопрос Excel VBA: Удаление нескольких столбцов в нескольких листах некоторых рабочих книг на основе определенных критериев

Условия задачи

Код VBA

Пояснение кода

Рекомендации