在经过过滤的工作表中每行打印多个单元格值

Question

我有以下循环遍历经过筛选的Excel工作表

Sub SpecialLoop()
    Dim rng As Range

    Set rng = Range("A2:A11")

    For Each cl In rng.SpecialCells(xlCellTypeVisible)
        Debug.Print cl
    Next cl

End Sub

因此，这将打印从A2到A11的所有值。 在循环中，如何在B列中打印相应的值？

Answer 1

像这样：

Sub SpecialLoop()
    Dim rng As Range, cl As Range

    On Error Resume Next
    Set rng = Range("A2:A11").SpecialCells(xlCellTypeVisible)
    On Error GoTo 0

    If Not rng Is Nothing Then
        For Each cl In rng
            Debug.Print cl ' col A
            Debug.Print cl.Offset(, 1) ' col B
            'alternative way
            'Debug.Print Range("B" & cl.Row) ' col B
        Next cl
    End If
End Sub

如果没有可见的单元格SpecialCells(xlCellTypeVisible)触发错误，这就是为什么我使用On Error Resume Next ， If Not rng Is Nothing Then 。

对于您的原始问题，可以使用Debug.Print cl.Offset(, 1)从B列获取值（假设cl引用A列中的单元格）。 或者，更明确的方式是： Debug.Print Range("B" & cl.Row)