Question

excel中如何将没有数据的行隐藏起来，只将有数据的行显示在旁边，用公式实现，谢谢！

0和空白代表没有数据，
多列中，某一列有一个以上的数据，就需要显示

上图是目前的情况
下图是在旁边需要的效果





Answer 1

在最右边增加一列，然后公式是

=if(countif( sw2:tf2,">0")>0,"是","否")

如果SW列到TF列之间有大于0的数据，那么就显示为是，否则显示为否

然后筛选，选“是”的选项就可以了

追问

公式是对的
我希望是右边，可以用公式自动显示有数据的行。难度大不大？
谢谢

追答

公式好像是不行的~公式只能针对单元格进行计算，不能修改单元格格式。
想要实现的话必须借助宏，或者VBA语句。不过宏和VBA语句普通的xlsx格式excel文件不好保存，一般要保存成xlsm的，比较麻烦

追问

我用的是2010版

以前知道，好像可以忘记放哪里了

追答

公式确实是不行的哦！

不过语句是可以的。

Sub 隐藏()
myrow = [sv65536].End(xlUp).Row   '确定数据最大行数
For x = 1 To myrow                 '行数  1到最大行循环
If Application.CountIf(Range("sw" & x & ":tf" & x), "<>0") = 0 Then        '用工作表函数判断是否全部为0
Range("a" & x).EntireRow.Hidden = True     '将为0的整行隐藏
End If
Next
End Sub

vba是可以实现的！这里是针对xls格式最大支持65535行，如果是xlsx格式可以改成[sv1048576]

追问

我复制进去也不知道操作，我不会用vba。改工作表的其他列是有数据的。

谢谢啦！

追答

这个是这样的~这个语句只针对你的SW到TF列，你可以根据需要来修改。

使用方法的话，在当前工作表上右键选【查看代码】然后复制进去，按F5运行就可以了。

比如你针对的是SW到TF列，就直接粘贴。比如你计算的是A到F列，就把sw改成A，把tf改成F这样的。

总之公式是不行的哦~

追问

复制进去，按f5，没有运行，开始还运行过一次

追答

改了一下，试试看。这个代码只针对数字数据~

Sub 隐藏()
myrow = [a65536].End(xlUp).Row   '确定数据最大行数
'MsgBox myrow
For x = 2 To myrow                 '行数  1到最大行循环
If Application.Sum(Range("b" & x & ":g" & x)) = 0 Then       '用工作表函数判断是否全部为0
Range("a" & x).EntireRow.Hidden = True     '将为0的整行隐藏
End If
Next x
End Sub