Excel VBA过滤/可见单元格

Question

假设我有10行数据.我对数据应用了一些过滤器,行号7和9被过滤 或 可见.

我想循环遍历数据(10行)并在空白列中输出字符串"Is Visible" (假设为C列),仅针对可见行(即范围C7和范围C9).

Answer 1

选择要隐藏的前10行中的一些,然后尝试运行它

Option Explicit

Sub CheckIfVisible()

Dim i As Integer, x As Integer
x = 0
For i = 1 To 10
    With Excel.ThisWorkbook.ActiveSheet
        If .Rows(i).EntireRow.Hidden Then
        Else
            .Cells(15 + x, 1) = "Row " & i & "is visible"
            x = x + 1
        End If
    End With
Next i

End Sub

这是你正在寻找的那种循环吗？
也许你可以告诉我们你的Loop我们可以看到你的问题在哪里？