VBA使用ArrayList删除指定列遇类型不匹配及删除不全问题求助

错误原因拆解 #

• 类型不匹配错误：UBound和LBound是VBA原生数组的专属函数，你用的System.Collections.ArrayList是外部COM对象，不支持这两个函数，直接调用必然触发类型不匹配。
• For Each仅删除部分列：删除列后，右侧列的列号会自动左移。比如ArrayList里存了列号3、4，先删第3列后，原来的第4列会变成第3列，此时遍历到4时，实际删除的是原第5列，导致漏删目标列。必须从大列号到小列号反向删除，才能规避列号偏移问题。

修正后的代码 #

Option Explicit

Sub delete_column()
    Dim arr As Object, x As Integer, myrange As String, rng As Range, cell As Range
    
    ' 初始化ArrayList对象
    Set arr = CreateObject("System.Collections.ArrayList")
    
    myrange = InputBox("Please enter the range:", "Range")
    If myrange = "" Then Exit Sub
    Set rng = Range(myrange)
    
    ' 仅遍历范围的第一行，避免无效遍历（原代码遍历整个区域，效率低）
    For Each cell In rng.Rows(1).Cells
        If cell.Value = "abc" Then arr.Add cell.Column
    Next cell
    
    ' 对列号降序排序，确保从最右侧目标列开始删除
    arr.Sort
    arr.Reverse
    
    ' 正确遍历ArrayList删除列
    For x = 0 To arr.Count - 1
        Cells(1, arr(x)).EntireColumn.Delete
    Next x
    
    ' 释放对象内存
    Set arr = Nothing
End Sub

关键修改点 #

1. 遍历范围优化：从遍历整个rng改为仅遍历rng.Rows(1).Cells，只检查第一行，符合需求且提升效率。
2. ArrayList遍历方式：用arr.Count获取元素总数，从0到arr.Count-1遍历（ArrayList索引从0开始），替代错误的UBound/LBound调用。
3. 列号排序处理：通过Sort升序排序后再Reverse转成降序，保证删除顺序从右到左，彻底避免列号偏移导致的漏删。
4. 变量类型完善：补充cell As Range的明确类型声明，避免隐式类型转换隐患。

替代方案：用VBA原生数组实现 #

如果不想依赖外部ArrayList对象，也可以用原生数组完成需求：

Option Explicit

Sub delete_column_with_array()
    Dim colArr() As Integer, colCount As Integer, x As Integer
    Dim myrange As String, rng As Range, cell As Range
    
    myrange = InputBox("Please enter the range:", "Range")
    If myrange = "" Then Exit Sub
    Set rng = Range(myrange)
    
    colCount = 0
    ' 收集目标列号到原生数组
    For Each cell In rng.Rows(1).Cells
        If cell.Value = "abc" Then
            colCount = colCount + 1
            ReDim Preserve colArr(1 To colCount)
            colArr(colCount) = cell.Column
        End If
    Next cell
    
    ' 从大到小反向删除列
    For x = colCount To 1 Step -1
        Cells(1, colArr(x)).EntireColumn.Delete
    Next x
End Sub

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