[已解决]用VBA进行有条件的隐藏

excel白兔

用VBA进行有条件的隐藏

最佳答案

月排行榜 / 总排行榜

w2001pf

2013-7-9 09:59

VBA能做出这样的结果吗.rar (8.98 KB, 下载次数: 17)

2013-7-9 10:00 上传

点击文件名下载附件 你看是这样的吧？如果符合要求，别忘记评个最佳哟。
Sub 隐藏行()
    Dim s As String
   
    Dim i As Long
    Sheets("例子").Select
    With Sheets("例子")
    For i = 2 To .Range("A" & 65536).End(xlUp).Row
        If Sheets("例子").Range("A" & i) = 0 Then
           .Cells(i, 1).RowHeight = 0
        End If
    Next i
    End With
End Sub

跳转到最佳答案楼层

w2001pf

VBA能做出这样的结果吗.rar (8.98 KB, 下载次数: 17)

2013-7-9 10:00 上传

点击文件名下载附件 你看是这样的吧？如果符合要求，别忘记评个最佳哟。
Sub 隐藏行()
    Dim s As String
   
    Dim i As Long
    Sheets("例子").Select
    With Sheets("例子")
    For i = 2 To .Range("A" & 65536).End(xlUp).Row
        If Sheets("例子").Range("A" & i) = 0 Then
           .Cells(i, 1).RowHeight = 0
        End If
    Next i
    End With
End Sub

excel白兔

w2001pf 发表于 2013-7-9 09:59
你看是这样的吧？如果符合要求，别忘记评个最佳哟。
Sub 隐藏行()
    Dim s As String

谢谢 老师就是这样的结果 哈哈  万分感谢！