此问题可以用VBA解决,只是楼主不肯花时间想而已
……………………………………………………………
楼上的方法需要转置
但用VBA挺简单:按下alt + F11,空白处右击插入模块,复制粘贴下面代码按F5即运行。(“For i = 1 To 4”指从第一行到第四行,“For j = 1 To 10”指从第一列到第十列,即你数据的总范围,行数和列数自己修改)
代码:
Private Sub CommandButton1_Click()
Dim NoEm As Boolean
For i = 1 To 4
NoEm = False
For j = 1 To 10
If Sheet1.Cells(i, j) <> "" Then NoEm = True: Exit For
Next j
If NoEm = False Then Rows(i).EntireRow.Hidden = True
Next i
End Sub