Excel-是否可以使偏移功能跳过隐藏单元格

我有一个非常简单的偏移功能，我连接到一个滚动条来滚动数据<代码>=偏移量（A$2，$48,0）。当我过滤单元格A2-A45中的数据以仅选择某一类别时，我希望偏移量函数的滚动跳过隐藏的单元格，仅滚动过滤后仍然可见的数据

Sub AddVisibleName()

    Dim rVisible As Range
    Dim lLastRow As Long

    lLastRow = Range("A" & Rows.Count).End(xlUp).Row

    Set rVisible = Range("A2:A45" & lLastRow).SpecialCells(xlCellTypeVisible)

    ActiveWorkbook.Names.Add Name:="VisibleRange", RefersTo:=rVisible

End Sub

上面的代码创建了一个范围“VisibleRange”，其中只显示了非隐藏单元格的值。有没有办法将其合并到偏移功能中

我也欢迎任何其他更简单的方法来实现我想要的

谢谢这有帮助吗

Sub Macro1() 

    If Rows("1:10").EntireRow.Hidden = True Then 
        Rows("1:10").EntireRow.Hidden = False 
    ElseIf Columns("2:3").EntireColumn.Hidden = False Then 
        Columns("2:3").EntireColumn.Hidden = True 
    End If 

End Sub

还是这个

For i = 2 To 20 

    If Not Rows(i).Hidden 

     'do stuff
End If 
End With 

---

试试这个代码。为我工作

ActiveCell.Offset(1, 0).Select
Do Until ActiveCell.Height <> 0
ActiveCell.Offset(1, 0).Select
Loop

ActiveCell.Offset（1，0）。选择
直到ActiveCell。高度0
ActiveCell.Offset（1，0）。选择
环