VBA Rows属性变量

Question

我正在尝试取消隐藏一系列行。这是在一个循环中完成的，所以我使用了变量；下面是代码：

For i = 2 To lastrow
If Workbooks("Discrepancies1").Worksheets(1).Cells(i, 8) = "USRFLG02=T" Then
a = Workbooks("Discrepancies1").Worksheets(1).Cells(i, 46).Value
b = Application.WorksheetFunction.CountIf(c, a)

Workbooks("Discrepancies1").Worksheets(1).Rows("i: i + b - 1").Hidden = False

End If
Next
End If

但是，运行这段代码会在最后一行代码中出现类型不匹配错误。我已经检查了所有变量，它们都是它们应该是的。VBA似乎不喜欢冒号(表示范围)与变量一起使用。我可以在没有变量的情况下运行，也可以在没有范围的情况下运行，但我不能两者兼得。有什么建议吗？

Answer 1

With Workbooks("Discrepancies1").Worksheets(1) 
    For i = 2 To lastrow
        If .Cells(i, 8) = "USRFLG02=T" Then
            a = .Cells(i, 46).Value
            b = Application.CountIf(c, a)

            .Rows(i & ":" & i + b - 1).Hidden = False
        End If
    Next
End With