VBA循环需多次运行才达预期：为何首次无法删除所有周末列？

核心原因 #

你当前用的是正向遍历列（从B列往右依次检查），当删除某一列后，右侧所有列会自动左移填补空位，但For Each遍历的是初始的单元格集合，这就导致原本在被删列右侧的单元格被跳过：
比如原B列是周六，删除后原C列（周日）变成新的B列，但循环已经处理过“原B列”的位置，接下来会直接跳到原D列（现在的C列），导致周日列第一次运行时没被检查到，第二次运行才会被处理。
另外代码还存在冗余：如果某列既是节假日又是周末，会执行两次删除列的操作，虽然不会报错，但完全没必要。

修正后的代码 #

改用反向遍历（从最后一列往前检查），就能避免删除列导致的索引偏移问题，同时优化判断逻辑：

Sub DeleteNonWorkDays()
    Dim holidays As Variant
    holidays = Array("01.01.2022", "15.04.2022", "18.04.2022", "01.05.2022", "26.05.2022", "06.06.2022", "16.06.2022", "03.10.2022", "25.12.2022", "26.12.2022")
    
    Dim lastCol As Integer
    Dim i As Integer
    Dim isHoliday As Boolean
    
    lastCol = Range("B1").End(xlToRight).Column
    
    ' 从最后一列往前遍历，删除列不会影响未检查的列
    For i = lastCol To 2 Step -1
        isHoliday = False
        ' 检查是否为法定节假日，找到匹配后直接退出循环
        For Each holiday In holidays
            If Cells(1, i).Value = CDate(holiday) Then
                isHoliday = True
                Exit For
            End If
        Next holiday
        
        ' 合并周末和节假日判断，满足任一条件则删除列
        If Weekday(Cells(1, i).Value, 2) > 5 Or isHoliday Then
            Columns(i).Delete
        End If
    Next i
End Sub

关键修正点 #

• 反向遍历：从最后一列到B列，步长设为-1，删除列时只会影响已遍历的左侧列，未检查的列位置不受干扰，所有列都会被逐一检查。
• 优化节假日判断：用isHoliday标记，找到匹配后直接退出循环，提升代码效率。
• 合并删除条件：将周末和节假日的判断合并，一次判断就决定是否删除，逻辑更简洁。

内容的提问来源于stack exchange，提问作者boost