假设我有 10 行数据。我对数据应用了一些过滤器,第 7 行和第 9 行被过滤 或 可见。
我想遍历数据(10 行)并在空白列(假设 C列)中输出字符串“可见”,仅适用于可见行(即范围 C7 和范围 C9)。
Choose some of the first 10 rows to hide, and then try running this
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
Is this the sort of loop you're looking for?
Maybe you can show us your Loop so we can see where your problem is?
由于我前一阵子来这里寻找这个,这里有一些可能对未来的谷歌人有用的东西。
如果您按单元格/行执行此操作,则可以直接访问单元格.EntireRow.Hidden bool。
在下面的示例中,它只是通过选择中的每个单元格的 ForEach 循环,并仅读取该单元格中的属性,基于 .Hidden 为真/假进行计数/着色。
如果您正在测试过滤范围,则需要在范围之外选择一行,因为如果隐藏行落在范围中的倒数第二/最后一行,则可能无法捕获隐藏行,选择第一个可见行选择后避免了这种情况。
对于大范围(10,000 + 行)来说,这将是极其低效的
Sub HowManyHiddenCells()
Dim MyCell, MyRange As Range
Dim CellCountAll, CellCountVisible, CellCountHidden As Integer
Set MyRange = Selection
For Each MyCell In MyRange
':: IGNORE EMPTY ::
If Len(MyCell.text) > 0 Then
If MyCell.EntireRow.Hidden Then
MyCell.Interior.Color = RGB(255, 220, 200)
':: Count of hidden cells in range
CellCountHidden = CellCountHidden + 1
':: Do Column C Text! ::
MyCell.Offset(0, 2).FormulaR1C1 = "I was hidden! "
End If
If MyCell.EntireRow.Hidden = False Then
MyCell.Interior.Color = RGB(200, 255, 180)
':: Count of visible cells in range
CellCountVisible = CellCountVisible + 1
End If
':: Count of all cells in range
CellCountAll = CellCountAll + 1
End If
Next MyCell
MsgBox "Cells total " & CellCountAll & vbNewLine & "Hidden : " & CellCountHidden & vbNewLine & "Visible : " & CellCountVisible, vbOKOnly + vbInformation, "Count of hidden vs visible"
End Sub
受@whytheq 的启发,我想出了这个,所以它循环遍历selection 中的所有可见行:
Sub Loop_through_selected_rows()
Dim rng As Range: Set rng = ActiveWindow.RangeSelection
Dim i As Integer
For i = 0 To rng.Rows.Count - 1
If Cells(rng.Row + i, 1).EntireRow.Hidden Then
Else
Cells(rng.Row + i, 1).Range("A1:E1").Select 'Set Range within row to your needs
' Do something here
End If
Next
End Sub