excel隐藏特定行的VB函数 就这样的 if(a2="",隐藏该行，无操作） 下拖 if(a3="",隐藏该行，无操作）

发布网友 发布时间：2022-04-29 04:48

我来回答

共3个回答

热心网友 时间：2023-10-12 14:21

vba不是这样用的。
alt+F11
插入，模块，将下面代码复制进右边空白区，存盘退出，重新打开，按照提示最终需要你选择“启用宏”，仔细看提示
再alt+F8
找到 批量隐藏 这个宏名，执行它
代码如下

sub 批量隐藏()
for i = range("B65536").end(xlup).row() to 2 step -1
if cells(i,1)="" then rows(i).entirerow.hidden = true
next
end sub追问表如图， 我是要隐藏b列空的行

追答sub 批量隐藏()
for i = range("a65536").end(xlup).row() to 2 step -1
if cells(i,2)="" then rows(i).entirerow.hidden = true
next
end sub

热心网友 时间：2023-10-12 14:22

在vb里面的，你怎么下拖？
只能使用循环的方式噢

热心网友 时间：2023-10-12 14:23

Range.EntireRow.Hidden = True追问可否给完整版代码

热心网友 时间：2023-10-12 14:21

vba不是这样用的。
alt+F11
插入，模块，将下面代码复制进右边空白区，存盘退出，重新打开，按照提示最终需要你选择“启用宏”，仔细看提示
再alt+F8
找到 批量隐藏 这个宏名，执行它
代码如下

sub 批量隐藏()
for i = range("B65536").end(xlup).row() to 2 step -1
if cells(i,1)="" then rows(i).entirerow.hidden = true
next
end sub追问表如图， 我是要隐藏b列空的行

追答sub 批量隐藏()
for i = range("a65536").end(xlup).row() to 2 step -1
if cells(i,2)="" then rows(i).entirerow.hidden = true
next
end sub

热心网友 时间：2023-10-12 14:22

在vb里面的，你怎么下拖？
只能使用循环的方式噢

热心网友 时间：2023-10-12 14:23

Range.EntireRow.Hidden = True追问可否给完整版代码

热心网友 时间：2023-10-12 14:21

vba不是这样用的。
alt+F11
插入，模块，将下面代码复制进右边空白区，存盘退出，重新打开，按照提示最终需要你选择“启用宏”，仔细看提示
再alt+F8
找到 批量隐藏 这个宏名，执行它
代码如下

sub 批量隐藏()
for i = range("B65536").end(xlup).row() to 2 step -1
if cells(i,1)="" then rows(i).entirerow.hidden = true
next
end sub追问表如图， 我是要隐藏b列空的行

追答sub 批量隐藏()
for i = range("a65536").end(xlup).row() to 2 step -1
if cells(i,2)="" then rows(i).entirerow.hidden = true
next
end sub

热心网友 时间：2023-10-12 14:22

在vb里面的，你怎么下拖？
只能使用循环的方式噢

热心网友 时间：2023-10-12 14:23

Range.EntireRow.Hidden = True追问可否给完整版代码