VBA中Range.EntireRow.Hidden在不同工作表返回值异常问题

核心问题根源 #

1. 可见行判断逻辑错误：If finderr.EntireRow.Hidden = True这个判断存在致命问题——当finderr是多行范围时，只要其中有任意一行被隐藏，EntireRow.Hidden会返回Null而非明确的True/False。VBA中Null与True比较时会被视为True，因此哪怕工作表仍有可见行，该判断也会触发GoTo SkipSheet，导致后续工作表跳过复制逻辑。
2. 过度依赖Activate/Select：跨工作表/工作簿操作时，这类方法极易引发上下文混乱，导致后续循环中范围引用出现隐性错误。
3. 日期筛选的格式风险：直接拼接字符串日期的方式，可能因系统区域格式差异被AutoFilter识别失败。

修复后的代码 #

Sub SalesCopy(strStart As String, strEnd As String, searchfilee As String, finddate As Date)
    Dim ws As Worksheet
    Dim wbm As Workbook, wbb As Workbook
    Dim sourceRange As Range
    Dim targetLastRow As Long
    Dim startDate As Date, endDate As Date
    
    ' 转换日期参数，规避区域格式问题
    startDate = CDate(strStart)
    endDate = CDate(strEnd)
    
    ' 固定主工作簿与工作表引用，避免Activate切换上下文
    Set wbm = Workbooks("Sales & Swap Recs 2024_Test")
    Set wbb = Workbooks(searchfilee)
    
    For Each ws In wbb.Worksheets
        ' 检查表头是否包含"Date"
        If Not ws.Range("C1").Value Like "*Date*" Then GoTo SkipSheet
        
        ' 清除原有筛选状态
        ws.AutoFilterMode = False
        
        ' 应用日期筛选：用CDbl转日期为数值，彻底避免格式识别问题
        ws.Range("C1").AutoFilter Field:=3, _
                                Criteria1:=">=" & CDbl(startDate), _
                                Operator:=xlAnd, _
                                Criteria2:="<=" & CDbl(endDate)
        
        ' 定位源数据范围并筛选可见行
        On Error Resume Next
        Set sourceRange = ws.Range("B2:O" & ws.Cells(ws.Rows.Count, "O").End(xlUp).Row).SpecialCells(xlCellTypeVisible)
        On Error GoTo 0
        
        ' 存在可见数据则执行复制粘贴
        If Not sourceRange Is Nothing Then
            ' 精准定位目标表的最后一行（避免空行导致的跳转错误）
            targetLastRow = wbm.Worksheets("Sale").Cells(wbm.Worksheets("Sale").Rows.Count, "B").End(xlUp).Row + 1
            ' 复制粘贴值
            sourceRange.Copy
            wbm.Worksheets("Sale").Range("B" & targetLastRow).PasteSpecial Paste:=xlPasteValues
            Application.CutCopyMode = False
            Set sourceRange = Nothing
        End If
        
        ' 清除当前工作表筛选
        ws.AutoFilterMode = False
        
SkipSheet:
    Next ws
End Sub

关键修复点说明 #

• 可见行判断优化：改用SpecialCells(xlCellTypeVisible)结合错误处理，直接判断是否存在可见数据，彻底解决Null值判断的问题。
• 移除Activate/Select：全程通过工作表对象直接操作，避免上下文切换导致的隐性错误。
• 日期处理升级：先将字符串转为Date类型，再用CDbl转为数值传递给AutoFilter，彻底规避区域格式差异带来的筛选失效。
• 目标行定位优化：通过Rows.Count计算最后一行，避免Range("B2").End(xlDown)在B2以下为空时跳转到错误位置。

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