Excel VBA操作含隐藏列工作表删除可见行报重叠选区错误的解决方法

对跨多列的区域A2:AO500000调用SpecialCells(xlCellTypeVisible)时，若工作表存在隐藏列，同一可见行会被隐藏列分割为多个独立的可见单元格块，Excel会将这些块识别为多个独立选区，此时调用EntireRow.Delete就会触发「无法对重叠选区使用该命令」报错——本质是同一行被重复计入多个选区，删除操作出现范围冲突。

核心思路是放弃跨多列取可见单元格的逻辑，仅从单列（筛选基准列即可）取可见单元格，再映射到整行做删除，从根源避免选区重叠问题，同时不需要硬编码固定行号，完全适配循环中动态变化的数据范围。

修正后可直接运行的代码如下：

Dim ws As Worksheet
Dim deleteRange As Range

' 直接绑定目标工作表，无需Activate激活，减少界面切换带来的不稳定
Set ws = TempBook.Sheets("Item Level Detail")

' 自动适配当前数据行数，不硬编码固定范围
With ws.Range("A1:AO" & ws.Cells(ws.Rows.Count, "A").End(xlUp).Row)
    .AutoFilter Field:=1, Criteria1:="<>" & DistNo
    
    ' 容错：无符合条件的可见行时跳过删除
    On Error Resume Next
    ' 仅取A列（筛选列）的可见数据行，不受其他隐藏列影响，不会产生重叠选区
    Set deleteRange = .Offset(1, 0).Resize(.Rows.Count - 1, 1).SpecialCells(xlCellTypeVisible)
    On Error GoTo 0

    If Not deleteRange Is Nothing Then
        deleteRange.EntireRow.Delete
    End If
End With

ws.AutoFilter.ShowAllData

• 完全规避隐藏列导致的选区重叠问题，不会触发原报错
• 自动识别A列最后一行有效数据作为范围边界，不需要硬编码500000这类固定行号，适配循环中数据量动态变化的场景
• 增加空结果容错，筛选后无符合删除条件的行时不会抛出“未找到单元格”类错误
• 移除了原代码的工作表激活逻辑，运行效率更高，不会受活动工作表意外切换的影响

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