Excel VBA过滤/可见单元格

假设我有10行数据。 我应用一些filter的数据和行号7和9被过滤 或 可见 。

我想遍历数据（10行），并在空白列（假设C列）中输出string“Is Visible” ， 仅用于可见行（即范围C7和范围C9）。

Answer 1

select前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 

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