可以做到，使用vba编程，进入VBA编程环境，插入模块，Sub rowh()
If Sheet1.Cells(1, 1).Value = 0 Then
Sheet1.Range("A1:A3").RowHeight = 0
Else
Sheet1.Range("A1:A3").Rows.AutoFit
End If
End Sub
输入以上语句，运行宏rowh，当工作表sheet1单元格A1=0时，第一行到第三行行高均为零，否则行高自动调整。
同时按Alt和F11进入宏界面，点菜单的插入，模块，粘贴如下代码：
Sub test()
Dim i As Integer
For i = 1 To 30
If Range("A" & i) = 0 Then Rows(i).Hidden = True
Next i
End Sub
在此界面这节按F5运行此宏，完成。粗体字表示单元格A1到A30为0的行隐藏。
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024