如何自动隐藏空白行？？？

快活老三

新人進來學習。

xinzhihuadan

第二次学习。。。

东晴西雨

正好要找这个。学习了，O(∩_∩)O谢谢~

咏声李婷

新手，没看懂的说

vesper1

不错，真是有高手啊！

引子玄

类似的问题扩展，还有录入数据如何自动删除空白字符行

引子玄

佛山小老鼠 发表于 2011-2-27 10:27
Sub test1()
    Dim i As Integer
    For i = 8 To 106

好办法，学习了

合肥狮子

长安布衣 发表于 2011-2-27 10:27
注意：不要输入空格

我看不懂代码，但是我用过后发现效果非常好！再斗胆要求一下：

Sub ChangAnBuYi()
'长安布衣  2011-2-27 mrttl@hotmail.com
Dim i As Integer
Dim myRg As String
Dim myBlank As Integer
Rows("7:107").EntireRow.Hidden = False

For i = 8 To 106
  myRg = "E" & & ":" & "CQ" &
  myBlank = Application.CountA(Range(myRg))
  If myBlank = 0 Then
    Rows( & ":" & ).EntireRow.Hidden = True
  End If
Next
Range("E7").Activate
End Sub
Sub UnHidden()
'长安布衣  2011-2-27 mrttl@hotmail.com
  Rows("7:107").EntireRow.Hidden = False
End Sub
'隐藏区域内的空白行非常棒，要是能把固定的《E8-CQ106区域》修改成，
'事前手工选择区域，再点击选择1隐藏“空白行”，2隐藏“空白列”，3同时隐藏区域内的“空白行”和“空白列”，这就好上加好了，拜托您！
'就是做个窗体个窗体，一按就能调出来；
'

合肥狮子

○回眸o一笑(550669186)  10:01:23
Sub A隐藏区域内的非空白行()
'先选择区域，再alt+F8调出【A隐藏区域内的非空白行】宏，运行即可！
     Dim cell As Range
     Dim r As Double
     On Error Resume Next
         For Each cell In Selection '可换成区域
         If cell <> "" Then
        
               Rows(cell.Row & ":" & cell.Row).EntireRow.Hidden = True
            End If
         
         Next
        
End Sub
————————————————————————
《A隐藏区域内的非空白行》修改成《A隐藏区域内的空白行》即可

合肥狮子

如何自动隐藏统计表中区域内空白行和列？
比如上表：选择区域为B2-E12，空白行为4、7、9、12，空白列为D，其他不隐藏！

Sub A紫电隐藏区域内的空白行()
'先选择区域，再alt+F8调出【A隐藏区域内的空白行】宏，运行即可！
'隐藏区域内的空白列算法不同，还没写好！
    Dim cell As Range, NowRow As Integer, HidOrNot As Boolean
    Dim r As Double
   
    On Error Resume Next
   
    HidOrNot = True
     NowRow = 0
    For Each cell In Selection '可换成区域
        If NowRow = 0 Then NowRow = cell.Row
        If cell.Row = NowRow And cell <> "" Then HidOrNot = False
        If cell.Row <> NowRow Then
           Rows(NowRow & ":" & NowRow).EntireRow.Hidden = HidOrNot
           NowRow = cell.Row
           HidOrNot = True
        End If
    Next
    Rows(NowRow & ":" & NowRow).EntireRow.Hidden = HidOrNot
   
End Sub
——————————————————————————————
现在《隐藏区域内的空白行》有了，谁能帮我补上《隐藏区域内的空白列》呀，谢谢！这个非常实用，单位填写表格时候常用到！！！