求助贴

有没有路过的进来看一看

下午还要上班去，有没有人来瞧瞧

有没有人在

有人来吗

晚上再来

吞楼了。

ctrl+G
定位，选择空值，删除整行。

sub hh()
application.displayalert:=false
application.screenupdating:=false
dim endrow as long,rg as range
endrow=[b65536].end(xlup.row
for i=endrow to 1 step=-1
if cells(i,2)="" then cells(i,2).entirerow.delete
application.displayalert:=true
application.screenupdating:=true
next
end sub

现在有人吗？重新说一下问题。
原资料是这样的,要把它调整成下面这样。只删除所有没有的横排，有字的横排都要保留。有方便简单的办法吗各位大师

有人了吗
一班了吗大家

在线等啊