批量删除空白行，整个工作簿

LangQueS

原帖由 yuyangqh 于 2010-1-25 13:32 发表
用的是11楼的方法，运行正常，我把附件传上来，11楼收不收徒弟呀！高手

我是“代码盲”，所用代码都是拼凑的，yuyangqh拜师走眼了。

有帖为证：

★２５９个常用宏★        http://club.excelhome.net/dispbb ... replyID=&skin=0

dyting

将空白处替换为0，在sheet处加入代码：
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim x As Integer
For x = [a65536].End(xlUp).Row To 2 Step -1
   If Range("a" & x) = 0 Then
     Rows(x).Delete
   End If
Next x
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim x As Integer
For x = [a65536].End(xlUp).Row To 2 Step -1
   If Range("a" & x) = 0 Then
     Rows(x).Delete
   End If
Next x
End Sub

小黑刀子

我也测试了,好象不太可行.

admin128

支持2楼那个方法是最快的

fanxp

原帖由 ysdms 于 2010-1-25 12:23 发表
选定A列，F5 定位- 定位条件  空值  
右键   删除

高！高招！

cj200002

如何用简单的方法解决简单的问题,是最重要的

Super菜鸟

学习中，
高手就是高手！

szyezi1313

用自己最熟悉的方法处理事情，殊途同规。支持2楼和11楼。

xiaolnqq

真的是受益匪浅，可以很好的解决实际问题了~

YZLSZAJ

学习，谢谢。