如何让某些行根据内容自动隐藏和显示

melajue

如附件：
Sheet1中有一些表格（3个表格），行数固定（比如是5行）。
Sheet2和Sheet3需要从Sheet1中分别引用数据，其中Sheet2是Sheet1中的第1个和第2个表格的综合，总行数为10行，Sheet3是Sheet1中的第2个和第3个表格的综合，总行数为10行。
当Sheet1的3个表格中的数据不足5行时，Sheet2和Sheet3的综合表中会有一些空白行（有公式但值为空，且并不是整行均为空值），
希望能够做到对这些（部分单元格为空白的）“空白行”自动隐藏和显示，即Sheet1的表格内容一旦改变，Sheet2和Sheet3会随时变化。
谢谢~

Lonzo丶

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i&
For i = 3 To 12
If Sheet2.Cells(i, 1).Value = "" Then
    Sheet2.Rows(i).Hidden = True
Else
    Sheet2.Rows(i).Hidden = False
End If
If Sheet3.Cells(i, 1).Value = "" Then
    Sheet3.Rows(i).Hidden = True
Else
    Sheet3.Rows(i).Hidden = False
End If
Next
End Sub

melajue

Lonzo丶 发表于 2019-10-12 17:12
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i&
For i = 3 To 12

了解，非常感谢