如何从最后一行开始取消隐藏VBA中的所有行？

Sub UnhideRowsFromLastRow()
    Dim lastRow As Long
    Dim i As Long
    
    ' 获取最后一行的行号
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row
    
    ' 从最后一行开始循环取消隐藏每一行
    For i = lastRow To 1 Step -1
        Rows(i).Hidden = False
    Next i
End Sub