在某些值之间运行IF函数时，VBA类型不匹配/运行时错误为'13'-为什么会发生这种情况？试图隐藏空的行

隐藏行

• 相反ActiveSheet，您可能想使用类似的东西ThisWorkbook.Worksheets("Sheet1")。

代码

Option Explicit

Sub Hide1()
    HideRows 13, 45
End Sub

Sub Hide2()
    HideRows 58, 61
End Sub

Sub HideRows( _
        ByVal FirstRow As Long, _
        ByVal LastRow As Long)
    Const ColsAddress As String = "B:J"
    Dim ws As Worksheet: Set ws = ActiveSheet
    Dim crg As Range: Set crg = ws.Columns(ColsAddress)
    Dim cCount As Long: cCount = crg.Columns.Count
    Dim trg As Range
    Dim i As Long
    For i = FirstRow To LastRow
        If Application.CountBlank(crg.Rows(i)) = cCount Then
            If trg Is Nothing Then
                Set trg = ws.Rows(i)
            Else
                Set trg = Union(trg, ws.Rows(i))
            End If
        End If
    Next i
    If Not trg Is Nothing Then
        trg.Rows.Hidden = True
    End If

End Sub