excel - 如果列单元格在一定范围内为空，如何隐藏 "Columns"？

Question

如果使用 VBA 在特定范围内列为空，如何隐藏列？例如:在下图中如果列单元格在“A5:J22”范围内为空，则隐藏这些列。在这里，列 E、F、H、I 和 J 将被隐藏。列 G 将不会被隐藏，因为它有数据在“G12”上。

Answer 1

用这个。

Public Sub HIDE()
Dim i As Long
For i = 1 To 10
    lastrow = Cells(1048576, i).End(xlUp).Row
    If lastrow < 5 Then
        Columns(i).Hidden = True
    End If
Next i
End Sub