您的当前位置：首页正文

vba隐藏不要的行

来源：步旅网

如，当前单元格的内容是 5,6,7，则仅显示5，6，7行，其余行隐藏

Sub HIDE()
    Dim v As String, lines, i, firstLine, isFirstLine As Boolean
    
    v = ActiveCell.Value
    lines = Split(v, ",")
    ActiveSheet.Rows.Hidden = True
    isFirstLine = True
    For Each i In lines
        If isFirstLine Then
            firstLine = i
            isFirstLine = False
        End If
         ActiveSheet.Rows(i).Hidden = False
    Next
    Cells(firstLine, 1).Select
 End Sub

Sub UnHide()
    Rows.Hidden = False
End Sub

因篇幅问题不能全部显示，请点此查看更多更全内容

查看全文