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

lindos

在excel中, 不管有多少列, 能否用VBA代码判断一行是否是空行,

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

也就是说, 空行的标准是在一行各单元格中,没有任何单元格有任何非空格字符.

请高手指点

谢谢

[此贴子已经被作者于2008-2-2 16:37:09编辑过]

wangminbai

If Application.WorksheetFunction.Count(Range("3:3")) = 0 Then
    MsgBox "空"
Else
    MsgBox "不空"
End If

lindos

QUOTE:

以下是引用wangminbai在2008-2-1 17:13:49的发言：
If Application.WorksheetFunction.Count(Range("3:3")) = 0 Then
    MsgBox "空"
Else
    MsgBox "不空"
End If

谢谢,

请问Application.WorksheetFunction.Count(Range("3:3")) = 0 是判断一个行吗?

另外3:3是什么意思?

fycwater

Application.WorksheetFunction.Count(Range("3:3")) = 0 只能判断有没有数字

nevinslee

函数 COUNT 在计数时，将把数字、日期、或以文本代表的数字计算在内；但是错误值或其他无法转换成数字的文字将被忽略。

我觉得不应该为=0,Range前加个VALUE()..呢?具体要看楼主的要求,呵呵!!

lindos

还是没有达到目的,

还有哪位老师能明白我的意思?

请看最开始的贴说的标准.

kowloon

If Application.CountA(Rows(3)) = 0 Then
    MsgBox "空"
Else
    MsgBox "不空"
End If

Rows(3) 即第3行

Rows(100)即第100行

fycwater

Application.CountA(Rows(3)) = 0  不能排除空格比如 ="   "

kowloon

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

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

lindos

QUOTE:

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

If Application.CountA(Rows(3)) = 0 Then
    MsgBox "空"
Else
    MsgBox "不空"
End If

Rows(3) 即第3行

Rows(100)即第100行

谢谢, 但还是有问题, 就是如果有空格, 还是判断为"不空", 而我要求是如果只有空格的话应判断为"空"

[此贴子已经被作者于2008-2-1 17:49:38编辑过]