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

lindos

QUOTE:

以下是引用fycwater在2008-2-1 17:44:59的发言：
Application.CountA(Rows(3)) = 0  不能排除空格比如 ="   "

说得对

lindos

QUOTE:

以下是引用kowloon在2008-2-1 17:45:32的发言：

如果单元格中有空格, 也算作空

For Each cell In Rows(1)
If Trim(cell) <> "" Then
MsgBox "不空"
GoTo 100
End If
Next
MsgBox "空"
100:

报类型不匹配

wangminbai

QUOTE:

以下是引用lindos在2008-2-1 17:53:49的发言：

报类型不匹配

这样判断的话，要是行数很多那会累死人的

特别是在2007版Excel中

lindos

QUOTE:

以下是引用wangminbai在2008-2-1 17:56:00的发言：

这样判断的话，要是行数很多那会累死人的

特别是在2007版Excel中

请问有好办法吗?

wangminbai

QUOTE:

以下是引用lindos在2008-2-1 17:57:53的发言：

请问有好办法吗?

这样吧

2003版

Dim i As Long
For i = 1 To 10
If Application.WorksheetFunction.CountBlank(Range(i & ":" & i)) = 256 Then
    MsgBox i & "行为空"
Else
    MsgBox i & "行不为空"
End If
Next
2007版

Dim i As Long
For i = 1 To 10
If Application.WorksheetFunction.CountBlank(Range(i & ":" & i)) = 16384 Then
    MsgBox i & "行为空"
Else
    MsgBox i & "行不为空"
End If
Next

lindos

QUOTE:

以下是引用wangminbai在2008-2-1 18:33:51的发言：

这样吧

2003版

Dim i As Long
For i = 1 To 10
If Application.WorksheetFunction.CountBlank(Range(i & ":" & i)) = 256 Then
    MsgBox i & "行为空"
Else
    MsgBox i & "行不为空"
End If
Next
2007版

Dim i As Long
For i = 1 To 10
If Application.WorksheetFunction.CountBlank(Range(i & ":" & i)) = 16384 Then
    MsgBox i & "行为空"
Else
    MsgBox i & "行不为空"
End If
Next

谢谢

kowloon

WorksheetFunction.CountBlank 亦是无法判断 空格为空

现修改代码如下, Excel 2003 & Excel 2007均可用, 不会累死人

亦解决”类型不匹配”

Set aa = Range(Cells(3, 1), Cells(3, Cells.SpecialCells(xlLastCell).Column))

For Each a In aa

If Len(Trim(a)) > 0 Then

MsgBox " 不是空行"

GoTo 100

End If

Next

MsgBox "是空行"

100:

lindos

QUOTE:

以下是引用kowloon在2008-2-1 22:52:48的发言：

WorksheetFunction.CountBlank 亦是无法判断
   空格为空

现修改代码如下, Excel 2003 & Excel 2007均可用, 不会累死人

亦解决”类型不匹配”

Set aa = Range(Cells(3, 1), Cells(3, Cells.SpecialCells(xlLastCell).Column))

For Each a In aa

If Len(Trim(a)) > 0 Then

MsgBox " 不是空行"

GoTo 100

End If

Next

MsgBox "是空行"

100:

谢谢, 这是完整代码吗, 怎么明明一行中某个单元格有数据, 还是会报"是空行"?

oobird

判断1~10行是否空行：

Sub yy()
For i = 1 To 10
If Rows(i).Find("*") Is Nothing Then MsgBox i & "空行"
Next
End Sub

lindos

QUOTE:

以下是引用oobird在2008-2-1 23:30:10的发言：

判断1~10行是否空行：

Sub yy()
For i = 1 To 10
If Rows(i).Find("*") Is Nothing Then MsgBox i & "空行"
Next
End Sub

谢谢老师, 您的方法较简单, 但还是 就是如果有空格, 还是判断为不空, 而我要求在只有空格的时也应判断为"空行"

另外能再给出代码, 就是如何判断所有数据行中的空行吗?

[此贴子已经被作者于2008-2-1 23:43:48编辑过]