vba代码如下:
Subdel()
Dima,i
a=Range("A65536").End(xlUp).Row
Fori=2Toa
IfRange("A"&i)=Range("A"&i-1)AndRange("A"&i)""ThenRange("A"&i).Deleteshift:=xlUp:i=i-1
Nexti
EndSub
2.效果如图所示:
vba代码如下:
Subdel()
Dima,i
a=Range("A65536").End(xlUp).Row
Fori=2Toa
IfRange("A"&i)=Range("A"&i-1)AndRange("A"&i)""ThenRange("A"&i).Deleteshift:=xlUp:i=i-1
Nexti
EndSub
2.效果如图所示: