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

BobPan

QUOTE:

以下是引用lindos在2008-2-2 11:13:26的发言：

感谢Bobpan师傅.

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

不可能，请上传你的测试文件！

冰山上的来客

同意楼上的说法。现在只是纸上谈兵。

masher

PH2Amvy5.rar (7.11 KB, 下载次数: 25)

2008-2-2 12:09 上传

点击文件名下载附件
[求助]如何判断一行是否空行?[未解决]

lindos

QUOTE:

以下是引用BobPan在2008-2-2 11:45:13的发言：

不可能，请上传你的测试文件！

这是运行结果截图和那个excel文件

d5gLoJ88.rar (64.82 KB, 下载次数: 10)

2008-2-2 12:37 上传

点击文件名下载附件
[求助]如何判断一行是否空行?[未解决]

请您看看

lidning

呵呵   问题很复杂   既然复杂了  那就不怕更复杂

在这个表的最右列增加一个判断列

然后最每一列的单元格乘1后求和  

只要这个行的求和值=0 那么这行就是空行  代码很简单  

[em12]

lindos

QUOTE:

以下是引用lidning在2008-2-2 12:56:52的发言：

呵呵   问题很复杂   既然复杂了  那就不怕更复杂

在这个表的最右列增加一个判断列

然后最每一列的单元格乘1后求和  

只要这个行的求和值=0 那么这行就是空行  代码很简单  

[em12]

谢谢您的指点.

其实, 判断的问题已经解决, 前面kowloon老师的贴子很有效, 现在是想办法做选择并删除

思路是:

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

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

第三步:删除

我想, 结合:

End(xlUp).Row

End(xlDown).Row

select

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

fecmen

何必那么麻烦呢，在运行代码前先把空格给去掉用替换的代码替换为空，再用counta判断便可。

不过上面的如下代码很高效啊！受教了！

判断1~10行是否空行：

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

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

zjxia889

Sub b()

    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).Column
        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

[此贴子已经被作者于2008-2-2 13:51:04编辑过]

lindos

QUOTE:

以下是引用zjxia889在2008-2-2 13:49:54的发言：

Sub b()

    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).Column
        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

zjxia889老师的办法很好, 但然后怎么把这些行用代码的方法删除呢?

zjxia889

Option Base 1
Sub 删除()
 Dim rng As Range
 Dim arr
 Dim k As Long, l%, m%
 Set rng = ActiveSheet.UsedRange
 arr = rng.Value
 m = UBound(arr, 2)
 ReDim Preserve arr(UBound(arr), m + 1)
 For k = 1 To UBound(arr)
   For l = 1 To m
     If Trim(arr(k, l)) = "" Then
          arr(k, m + 1) = arr(k, m + 1) + 1
     End If
   Next l
 Next k
 For k = UBound(arr) To 1 Step -1
   If arr(k, m + 1) = m Then
     Rows(rng.Row + k - 1).Delete
   End If
 Next k
End Sub
JpxUIXk1.rar (8.34 KB, 下载次数: 50)

2008-2-2 14:29 上传

点击文件名下载附件
[求助]如何用VBA判断空行并删除?[仍未解决]