以相反的顺序循环使用过的单元格

Question

我试图使用以下代码删除 ACTIVE 表中不需要的列：

Sub DeleteUnwantedColumns()
Dim LastUsedCell As Integer
Dim deleteRange As Range
LastUsedCell = ActiveSheet.UsedRange.Columns.count
Set deleteRange = ActiveSheet.Range(ActiveSheet.Cells(1, 1), ActiveSheet.Cells(1, LastUsedCell))
arr = Array("FY17", "FY18", "FY19", "FY20", "FY21")
    For Each cell In ActiveWorkbook.Worksheets("Sheet1").Range(ActiveSheet.Cells(1, 1), ActiveSheet.Cells(1, LastUsedCell))
        If IsError(Application.Match(cell.Value, arr, 0)) Then
             ActiveSheet.Cells.EntireColumn.Delete
        End If
    Next
End Sub

使用此代码表正在删除数组中未提及的内容，但是如果我要删除第 2 列，则第 3 列将是第 2 列，因此在这种情况下，如果值是其他内容，则代码将跳过第 2 列第 2 栏。

有什么办法可以让这段代码从最后使用的列到第一列。 我尝试使用第 1 步，但它在代码本身中显示错误。

任何帮助表示赞赏。

先感谢您

Answer 1

使用 for 循环和 go 从 usedRange.Columns.Count 向后使用步骤 -1。 您从未使用过 DeleteRange，因此我将其删除。

Sub DeleteUnwantedColumns()
    
    Dim arr As Variant
    Dim c As Integer
    
    arr = Array("FY17", "FY18", "FY19", "FY20", "FY21")
        
    For c = ActiveSheet.UsedRange.Columns.Count To 1 Step -1
        If IsError(Application.Match(ActiveSheet.Cells(1, c), arr, 0)) Then
            ActiveSheet.Columns(c).Delete
            End If
        Next
        
End Sub