通过可见单元格的VBA循环只有

Question

我使用下面的代码循环遍历每一行，但是我只想循环遍历列B中的可见单元格（因为我筛选出了我想忽略的值） 194。有谁知道我会怎么做？

For X = 192 to 10 Step -1 
    If Range("B" & X).Text = "" Then **This needs to change to visible cells only but not sure how! 
     Code required insert here 
    Else 
    End If 
Next X 

Answer 1

行高为0表示行被隐藏。所以你可以检查

For X = 192 to 10 Step -1 
    If Worksheets("Sheet1").Rows(X).RowHeight > 0 Then 
     Code required insert here 
    End If 
Next X 

假设你正在处理“Sheet1”当然。

Answer 2

Dim hiddenColumn: hiddenColumn = "B" 
For i = 1 To 10 
    If Range(hiddenColumn & i).EntireRow.Hidden = False Then 
     'logic goes here.... 
    End If 
Next 

Answer 3

Dim cell as Range 
With Range("B10:B192").SpecialCells(xlCellTypeVisible) 
    For X = .Rows.Count to 1 Step -1 
     Set cell = Range("A" & X) ' this sets the current cell in the loop 
    Next X 
End With 

Answer 4

你需要第二个循环遍历Range.SpecialCells(的Range.AreasxlCellTypeVisible）进行迭代。每个区域可以是一行或多行。

Dim a As Long, r As Long 
    With Range("B10:B192").SpecialCells(xlCellTypeVisible) 
     For a = .Areas.Count To 1 Step -1 
      With .Areas(a) 
       For r = .Rows.Count To 1 Step -1 
        'Debug.Print .Cells(r, 1).Address(0, 0) 
        'Debug.Print .Cells(r, 1).Text 
        If .Cells(r, "B").Text = "" Then 
         'Code required insert here 
        End If 
       Next r 
      End With 
     Next a 
    End With 

看来你想向后循环，所以我继续这个方向。如果意图是删除行，那么有更简单的方法来做到这一点。