Question

Excel 利用VBA 自动隐藏行

在excel 设置一个按钮, 按下后自动执行以下项目,
按钮一, .第17-26 行 自动隐藏
按钮二, .第14-16行 和 20-26行 自动隐藏
按钮三, 取消 14-26行 自动隐藏

教高手如何使用VBA解决，万分感激

Answer 1

步骤如下：

1.原数据，将A列为空的行隐藏

2.Alt+F11，在sheet1中输入如下代码

Sub main()

For i = 1 To 6

If Cells(i, 1) = "" Then

Rows(i).Hidden = True

End If

Next i

End Sub

3.F5执行代码，关闭，返回Excel，结果如下：