如何 用VBA 自动显示有效 行和列，空行列自动隐藏？

frankyzhe

求教各位前辈，
                             问题：如何 自动隐藏 A2到A21中为空值的行和 C1到G1中为空值的列，并自动更新 显示 被隐藏的行和列中被改值后不为空值的行和列？

如下是我编写的 最新版 代码，目前功能【奇次触发A表单元格 隐/显 判断，偶次触发 整体恢复】
缺陷1： 不能 在 判断 A1 是否 改值 后， 触发功能
缺陷2： 还是之前的速度慢的问题：  显示判断时，当被隐藏的行 的来源数据源 更新数据后，需要被显示出来时，怎样才能不用从表头重新判断？
{细化问题： 1.如何判断 被改值的单元格 行号(x)？                       2.如何判断 被隐藏的行 的行号 (y)？
                      3.如何 当 X=Y 时，使 满足条件的行 取消隐藏？}            
希望哪位高手帮我 改一下代码，谢谢

1. Public k
   
2. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
3. Application.ScreenUpdating = False
   
4. If Target.Count <> 1 Then Exit Sub
   
5. If Target.Column <> 1 Then Exit Sub
   
6. If Target.Row <> 1 Then Exit Sub
   
7.     Call 隐显恢复
   
8.     Cells(1, 2).Select
   
9. Application.ScreenUpdating = True
   
10. End Sub
    
11. 
    
12. Sub 隐显恢复()
    
13.     k = k + 1
    
14.     If k > 10 Then
    
15.         k = 1
    
16.         Call 行列隐藏显示
    
17.     Else
    
18.         If k Mod 2 = 1 Then
    
19.             Call 行列隐藏显示
    
20.         Else
    
21.             Call 恢复初始
    
22.         End If
    
23.     End If
    
24. End Sub
    
25. Sub 行列隐藏显示()
    
26. Dim i As Integer
    
27. Dim j As Integer
    
28.     For i = 2 To 21
    
29.         If Cells(i, 1).Value = "" Then
    
30.             Cells(i, 1).EntireRow.Hidden = True
    
31.         Else
    
32.             Cells(i, 1).EntireRow.Hidden = False
    
33.         End If
    
34.     Next i
    
35.     For j = 3 To 7
    
36.         If Cells(1, j).Value = "" Then
    
37.             Cells(1, j).EntireColumn.Hidden = True
    
38.         Else
    
39.             Cells(1, j).EntireColumn.Hidden = False
    
40.         End If
    
41.     Next j
    
42. End Sub
    
43. Sub 恢复初始()
    
44. Dim i As Integer
    
45. Dim j As Integer
    
46.     For i = 3 To 7
    
47.     Cells(1, i).Select
    
48.     Selection.EntireColumn.Hidden = False
    
49.     Next i
    
50.     For j = 2 To 21
    
51.     Cells(j, 1).Select
    
52.     Selection.EntireRow.Hidden = False
    
53.     Next j
    
54. End Sub

复制代码

1. Public arr(1 To 1, 1 To 1)
   
2. Sub 集成功能()
   
3. <span style="line-height: 1.5;">End Sub</span>

复制代码

hwc2ycy

行，列隐藏都是整行整行的隐藏，没有只隐藏某个单元格一说。

wendaoliu

1. Private Sub Worksheet_Activate()
   
2.     Dim Rng As Range
   
3.     Dim i As Integer
   
4.    
   
5.     For Each Rng In Range("B2:B20")
   
6.         If Application.WorksheetFunction.CountA(Rng) = 0 Then
   
7.             Rows(Rng.Row).EntireRow.Hidden = True
   
8.         End If
   
9.     Next
   
10.    
    
11.     For i = 4 To Range("H1").Column
    
12.         If Application.WorksheetFunction.CountA(Columns(i)) = 0 Then
    
13.             
    
14.             Columns(i).EntireColumn.Hidden = True
    
15.         End If
    
16.     Next
    
17. End Sub
    

复制代码

无聊的疯子

定位>空值>整行,整列 隐藏!!

jasonwood01

Sub 自动隐藏DQ列无字行()
   ActiveSheet.Unprotect
   Application.ScreenUpdating = False '冻结屏幕，以防屏幕抖动
   For i = 61 To 210
   S1 = "D" & i
   S2 = "Q" & i
   'S2 = "Q" & i
   'S3 = ":"
   'S3 = S1 + S2
   'S4 = WorksheetFunction.Count(Range(S3))
   'If S1 = " " Or s2 = " " Then
   S3 = WorksheetFunction.Count(Range(S1))
   S4 = WorksheetFunction.Count(Range(S2))
   If S3 + S4 = 0 Then
   Rows(i).EntireRow.Hidden = True
   End If
   Next i
   Application.ScreenUpdating = True '冻结屏幕,此类语句一般成对使用
End Sub