[求助]如何用VBA判断空行并删除?[未解决-高手请进]

zjxia889

Sub 删除空行() '删除空行或只有空格的行
 Application.ScreenUpdating = False
 Dim fl As Range
 Dim arr, arr0
 Dim k&
 Dim lr&, lc%
 Set fl = Cells.Find("*", , , , xlByColumns, xlPrevious) '查最大列
 lc = fl.Column
 Set fl = Cells.Find("*", , , , xlByRows, xlPrevious) '查最大行
 lr = fl.Row
 arr = Range(Cells(1, 1), Cells(lr, lc)).Value
 For k = UBound(arr) To 1 Step -1
    arr0 = Split(Join(Application.Index(arr, k), ""), " ")
    If UBound(arr0) <> 0 Then Rows(k).Delete
 Next k
 Application.ScreenUpdating = True
End Sub

Sub 删除空列() '删除空列或只有空格的列
 Application.ScreenUpdating = False
 Dim fl As Range
 Dim arr, arr0
 Dim l%
 Dim lr&, lc%
 Set fl = Cells.Find("*", , , , xlByColumns, xlPrevious) '查最大列
 lc = fl.Column
 Set fl = Cells.Find("*", , , , xlByRows, xlPrevious) '查最大行
 lr = fl.Row
 arr = Range(Cells(1, 1), Cells(lr, lc)).Value
 For l = UBound(arr, 2) To 1 Step -1
    arr0 = Split(Join(Application.Transpose(Application.Index(arr, , l)), ""), " ")
    If UBound(arr0) <> 0 Then Columns(l).Delete
 Next l
 Application.ScreenUpdating = True
End Sub

zjxia889

http://www.excelpx.com/dispbbs.asp?boardID=5&ID=42492&page=1

空格全部替为空行不行？数据行多时还是有问题

lotustower

please read:

http://www.mvps.org/dmcritchie/excel/delempty.htm

软件爱好者

Range("C2:C94").SpecialCells(4).EntireRow.Delete

sgnjdjw

兄弟的代码符合我的需要，谢谢你

yaroslav

各位的代码都很有帮助。但都不够完美啊。

hiyou

EXCEL每行有256列,用CELLS对256个单元格定位用TRIM检测即可

下面提供一段函数代码,调用形式是
布尔变量=测试空行(某行行号)
返回一个布尔值,为TRUE表示空行,FLASE是非空

比如
IF 测试空行(6) THEN
   MSGBOX "第6行是空行"
END IF

1. 
   
2. Function 测试空行(行号 As Integer) As Boolean
   
3. Dim 单元格 As Range
   
4. Dim I As Integer
   
5. 
   
6. 测试空行 = True
   
7. For I = 1 To 256
   
8. 
   
9.     Set 单元格 = ActiveSheet.Cells.Cells(行号, I)
   
10.     If Len(Trim(单元格.Value)) > 0 Then
    
11.      测试空行 = False
    
12. 
    
13. End If
    
14.    
    
15. Next
    
16. 
    
17. 
    
18. 
    
19. End Function

复制代码

qclx2018

持续学习中。。。

小灰灰520

kowloon 发表于 2008-2-2 14:37
空隔(space)視為空, 判斷及刪除空行Sub DelEmptyRow()endR = Cells.SpecialCells(xlLastCell).RowendC = Ce ...

请问怎么样改写一下可以满足适用多个指定工作表或者适用除了指定的几个工作表之外的所有工作表呢？