隐藏行

wangtiejun0011

请教高手，怎么利用vba实现：例如A和D两列同时为空时，隐藏该行。

wangtiejun0011

隐藏和消除隐藏

活在理想的世界

1. Sub d()
   
2. k = Range("a1048576").End(3).Row
   
3. For i = k To 1 Step -1
   
4.     If Range("a" & i) = "" And Range("d" & i) = "" Then
   
5.         Range("a" & i).EntireRow.Hidden = True
   
6.     End If
   
7. Next
   
8. End Sub

复制代码

wangtiejun0011

活在理想的世界 发表于 2017-11-16 18:24

请问大侠：
我不太懂VBA，如果是换成AB、AO两列需要改那几个地方，我把a、d两个改成ab、ao就不能用了

活在理想的世界

wangtiejun0011 发表于 2017-11-16 19:38
请问大侠：
我不太懂VBA，如果是换成AB、AO两列需要改那几个地方，我把a、d两个改成ab、ao就不能用了

把If Range("a" & i) = "" And Range("d" & i) = "" Then这句换成下面这句

If Range("ab" & i) = "" And Range("ao" & i) = "" Then

wangtiejun0011

Sub 隐藏()
k = Range("a1000").End(3).Row
For i = k To 1 Step -1
    If Range("ab" & i) = "" And Range("ao" & i) = "" Then
        Range("a" & i).EntireRow.Hidden = True
    End If
Next
End Sub
Sub 取消隐藏()
Rows("1:1000").Hidden = False
End Sub
谢谢，但只有第一行隐藏，其他行没有

活在理想的世界

wangtiejun0011 发表于 2017-11-16 19:51
Sub 隐藏()
k = Range("a1000").End(3).Row
For i = k To 1 Step -1

这是最基础的代码了，我是不会搞错的，如果你这边有问题最好看看你的附件是不是有问题。