Excel VBA，for循环忽略隐藏行

Sub IgnoreHiddenRows()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    ' 获取当前活动的工作表
    Set ws = ActiveSheet
    
    ' 获取工作表中最后一行的行号
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
    
    ' 遍历每一行
    For i = 1 To lastRow
        ' 检查当前行是否隐藏
        If Not ws.Rows(i).Hidden Then
            ' 在这里执行你的操作
            ' 例如：将当前行的值加倍
            ws.Cells(i, 1).Value = ws.Cells(i, 1).Value * 2
        End If
    Next i
End Sub