中文字幕理论片,69视频免费在线观看,亚洲成人app,国产1级毛片,刘涛最大尺度戏视频,欧美亚洲美女视频,2021韩国美女仙女屋vip视频

方法一

Public Sub Deletehide1()

For i = 50000 To 7 Step -1

    If Rows(i).Hidden = True Then

    Rows(i).Delete

    End If

    Next i

End Sub

方法二

Public Sub Deletehide2()

Set mrng = ActiveSheet.UsedRange.EntireRow

s = mrng.Rows.Count

    For i = s To 1 Step -1

        If Rows(i).Hidden = True Or Rows(i).Height < 0.5 Then Rows(i).Delete

    Next i

End Sub

方法三

Public Sub Deletehide3()

ActiveSheet.UsedRange.Columns('a').SpecialCells(xlCellTypeVisible).Select 

Rows.Hidden = False

Selection.EntireRow.Hidden = True

ActiveSheet.Cells.SpecialCells(12).Delete (3)

Rows.Hidden = False

End Sub