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

kowloon

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

版主, Find("*")亦是無法忽略空格(space)

lindos

QUOTE:

以下是引用kowloon在2008-2-1 23:41:51的发言：

版主, Find("*")亦是無法忽略空格(space)

老师说得对, 我刚才编辑过贴子了, 指出了这个问题, 期待中

kowloon

QUOTE:

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

老师说得对, 我刚才编辑过贴子了, 指出了这个问题, 期待中

那17樓的代碼是否可以?

lindos

QUOTE:

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

那17樓的代碼是否可以?

不行, 任何一行它都判断为不是空行.

如果您的代码:

====================

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

在找到空行后进一步剔除只有空格的行就可以了,因此, 在此基础上修改可能较好.

我先睡觉了, 期待一觉醒来看到您的结果, 谢谢

[此贴子已经被作者于2008-2-2 0:28:27编辑过]

BobPan

ref:(数组公式，不能区别“空格”)

=SUM(IF(COUNTBLANK(INDIRECT(ROW(A4:A19) &":"&ROW(A4:A19)))>255,1))

>>

单元格中空格，本来就是数据管理的问题，应该先把空格清除掉才对，而不是用公式或函数去迎合它们，这样做会无谓的增加难度，且对数据管理没什么帮助！

>>

如果数据源中全是数字，直接将“空格”替换为空

如果数据源中包含文字，直接将n个“空格”替换为空（单元格匹配）

lindos

QUOTE:

以下是引用BobPan在2008-2-2 8:48:04的发言：

ref:(数组公式，不能区别“空格”)

=SUM(IF(COUNTBLANK(INDIRECT(ROW(A4:A19) &":"&ROW(A4:A19)))>255,1))

>>

单元格中空格，本来就是数据管理的问题，应该先把空格清除掉才对，而不是用公式或函数去迎合它们，这样做会无谓的增加难度，且对数据管理没什么帮助！

>>

如果数据源中全是数字，直接将“空格”替换为空

如果数据源中包含文字，直接将n个“空格”替换为空（单元格匹配）

谢谢老师指导.

但是您的方法不妥, 不能有效解决问题.

我的excel文件中, 有多个字段, 有的字段为生物拉丁文名称(因此, 不能把空格替换掉), 有的字段的不同记录可能为空, 还有的字段为数字,日期........等等.

我认为21楼kowloon老师的方法可行, 但要进一步再判断出只有空格的行即可.

不过我对VBA不熟, 写不出来.

不知BobPan老师能否相助?谢谢.

kowloon

17楼不是完整的宏代码, 原以为楼主能套用

假设测试 第1 至 第10行

完整代码是:

Sub zz()

For i = 1 To 10

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

For Each a In aa

If Len(Trim(a)) > 0 Then

MsgBox "第" & i & "行 不是空行"

GoTo 100

End If

Next a

MsgBox "第" & i & "行 是空行"

100:

Next i

End Sub

由于无法引用rows(i)的方法, 一次个去判断整行某一单元格是否只有1个空格或多个空格,

故只可逐格去判断, 代码较长及较慢

BobPan

QUOTE:

以下是引用lindos在2008-2-2 9:33:01的发言：

谢谢老师指导.

但是您的方法不妥, 不能有效解决问题.

我的excel文件中, 有多个字段, 有的字段为生物拉丁文名称(因此, 不能把空格替换掉), 有的字段的不同记录可能为空, 还有的字段为数字,日期........等等.

我认为21楼kowloon老师的方法可行, 但要进一步再判断出只有空格的行即可.

不过我对VBA不熟, 写不出来.

不知BobPan老师能否相助?谢谢.

检查工作表的空行（含只有空格的行）

运行将提示当前工作表中所有空行，（含只有空格的行）

Sub fu()
    Dim intRow As Integer, bytCol As Byte, bytIdx As Byte, intIdx As Integer
    Dim SourceArray() As String, strPrompt As String
    intRow = ActiveCell.SpecialCells(xlCellTypeLastCell).Row
    strPrompt = "工作表有下列行为空行:"
    For intIdx = 1 To intRow
        bytCol = Cells(intIdx, 256).End(xlToLeft).Row
        ReDim SourceArray(1 To bytCol)
        For bytIdx = 1 To bytCol
            SourceArray(bytIdx) = Cells(intIdx, bytIdx).Text
        Next
        If LenB(Trim(Join(SourceArray))) = 0 Then strPrompt = strPrompt & " | " & intIdx
    Next
    MsgBox strPrompt
End Sub

lindos

QUOTE:

以下是引用BobPan在2008-2-2 10:44:48的发言：

检查工作表的空行（含只有空格的行）

运行将提示当前工作表中所有空行，（含只有空格的行）

Sub fu()
    Dim intRow As Integer, bytCol As Byte, bytIdx As Byte, intIdx As Integer
    Dim SourceArray() As String, strPrompt As String
    intRow = ActiveCell.SpecialCells(xlCellTypeLastCell).Row
    strPrompt = "工作表有下列行为空行:"
    For intIdx = 1 To intRow
        bytCol = Cells(intIdx, 256).End(xlToLeft).Row
        ReDim SourceArray(1 To bytCol)
        For bytIdx = 1 To bytCol
            SourceArray(bytIdx) = Cells(intIdx, bytIdx).Text
        Next
        If LenB(Trim(Join(SourceArray))) = 0 Then strPrompt = strPrompt & " | " & intIdx
    Next
    MsgBox strPrompt
End Sub

感谢Bobpan师傅.

您的代码可能有问题, 因为有的行明明有的单元格不为空, 但也判断为空行.

lindos

QUOTE:

以下是引用kowloon在2008-2-2 10:33:29的发言：

17楼不是完整的宏代码, 原以为楼主能套用

假设测试
    第1 至
    第10行

完整代码是:

Sub zz()

For i = 1 To 10

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

For Each a In aa

If Len(Trim(a)) > 0 Then

MsgBox "第" & i & "行
    不是空行"

GoTo 100

End If

Next a

MsgBox "第" & i & "行
    是空行"

100:

Next i

End Sub

由于无法引用rows(i)的方法, 一次个去判断整行某一单元格是否只有1个空格或多个空格,

故只可逐格去判断, 代码较长及较慢

kowloon师傅的代码结果正确, 谢谢.

但能否进一步选择所有空行呢, 即在所有数据行中间出现的空行, 然后做选择并删除?

思路是:

第一步:先找出所有空行(除了全部数据行之后的纯粹空行,即没有输入过任何数据的空行)

第二步:对找出的空行做选择;

第三步:删除

我想, 结合:

End(xlUp).Row

End(xlDown).Row

select

等, 应该可以达到目的吧(我VBA不懂得)