Excel宏筛选表格数据时遇444值陷入死循环问题排查

问题代码核心问题 #

原代码存在以下几个关键问题，导致筛选值为444时出现异常：

• 未仅复制筛选后的可见单元格：直接复制整个数据范围（包含被筛选隐藏的行），当筛选结果存在特殊格式（如合并单元格、空行）时，会引发粘贴异常。
• 粘贴目标错误：直接粘贴到目标工作表的整列Columns("A")，而非目标表的第一个空白行，若目标表已有数据，会导致数据反复填充，表现为"无限循环"。
• 筛选与复制范围不匹配：第一次筛选范围是A1:BK&lastRow，但复制范围是A1:BM&lastRow，列范围不一致，可能导致筛选逻辑与复制数据不对应。
• 未重置筛选状态：第二次筛选前未清除第一次的筛选状态，可能引发筛选条件叠加或异常。

修正后的代码 #

Dim sourceSheet As Worksheet
Dim targetSheet2 As Worksheet
Dim targetSheet4 As Worksheet
Dim lastRow As Long

' 绑定工作表对象，避免Activate/ActiveSheet的不稳定问题
Set sourceSheet = Workbooks(wbName).Sheets("דוח")
Set targetSheet2 = Workbooks(wbName).Sheets(newSheet2.Name)
Set targetSheet4 = Workbooks(wbName).Sheets(newSheet4.Name)

' 获取源表最后一行
lastRow = sourceSheet.Cells(sourceSheet.Rows.Count, 1).End(xlUp).Row

' 第一次筛选：33或446
With sourceSheet
    ' 先清除现有筛选
    If .AutoFilterMode Then .AutoFilterMode = False
    .Range("A1:BK" & lastRow).AutoFilter Field:=7, Criteria1:="=33", Operator:=xlOr, Criteria2:="=446"
    ' 仅复制可见单元格，粘贴到目标表的第一个空白行
    .Range("A1:BM" & lastRow).SpecialCells(xlCellTypeVisible).Copy _
        targetSheet2.Cells(targetSheet2.Rows.Count, 1).End(xlUp).Offset(1, 0)
    Application.CutCopyMode = False
    ' 清除筛选
    .AutoFilterMode = False
End With

' 第二次筛选：32或444
With sourceSheet
    .Range("A1:BK" & lastRow).AutoFilter Field:=7, Criteria1:="=32", Operator:=xlOr, Criteria2:="=444"
    ' 仅复制可见单元格，粘贴到目标表的第一个空白行
    .Range("A1:BM" & lastRow).SpecialCells(xlCellTypeVisible).Copy _
        targetSheet4.Cells(targetSheet4.Rows.Count, 1).End(xlUp).Offset(1, 0)
    Application.CutCopyMode = False
    .AutoFilterMode = False
End With

关键修正点说明 #

• 使用SpecialCells(xlCellTypeVisible)仅复制筛选后的可见行，避免隐藏行干扰。
• 粘贴目标改为目标表的第一个空白行（Cells(targetSheet.Rows.Count,1).End(xlUp).Offset(1,0)），防止重复填充。
• 绑定工作表对象，替代Activate/ActiveSheet，提升代码稳定性。
• 每次筛选前后清除筛选状态，避免条件叠加。

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