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

yuhe

Dim a$
For i = 1 To 256
a = a + Cells(3, i)
Next
If Len(a) <> 0 Then
MsgBox "不空"
Else
MsgBox "空"
End If

xfx1055

Function RowIsBlank(rowid As Long) As Boolean
Dim i As Integer
Dim str As String

str = ""
For i = 1 To 256
    str = str + Replace(Cells(rowid, i), " ", "")
Next

If Len(str) = 0 Then
    RowIsBlank = True
Else
    RowIsBlank = False
End If

End Function

Sub DeleteBlankRow()
Dim rowid As Long
Dim lastRow As Long

rowid = 2 '标题行除外
While rowid <= Sheets("Sheet1").UsedRange.Rows.Count '遍历所有行
    If RowIsBlank(rowid) = True Then
        Rows(rowid).Delete Shift:=xlUp
    Else
        rowid = rowid + 1
    End If
Wend

End Sub

oobird

Sub yy()
For i = 1 To 10
If Rows(i).Find("*") Is Nothing Then
MsgBox i & "空行"
Else
If Asc(Join(Application.Transpose(Application.Transpose(Cells(i, 1).Resize(1, 256))), "")) = 32 Then MsgBox i & "空行"
End If
Next
End Sub

yanjie

QUOTE:

以下是引用oobird在2008-2-4 22:26:08的发言：
Sub yy()
For i = 1 To 10
If Rows(i).Find("*") Is Nothing Then
MsgBox i & "空行"
Else
If Asc(Join(Application.Transpose(Application.Transpose(Cells(i, 1).Resize(1, 256))), "")) = 32 Then MsgBox i & "空行"
End If
Next
End Sub

很精彩的判断方法，学习了！有个问题，请问

Application.Transpose(Application.Transpose(Cells(i, 1).Resize(1, 256)))转置两次起什么作用？

zez

精彩

ifhwfu

QUOTE:

以下是引用yanjie在2008-2-5 18:33:50的发言：

很精彩的判断方法，学习了！有个问题，请问

Application.Transpose(Application.Transpose(Cells(i, 1).Resize(1, 256)))转置两次起什么作用？

同样有此疑问？试过去除两个 Transpose  函数的转置作用，则发生错误，表明此处一定要用两次转置，但不明有何作用，还往版主释疑！谢谢，祝春节愉快。

[此贴子已经被作者于2008-2-7 15:23:45编辑过]

dengjq2000

今天是大年初一，祝大家春节快乐！

学习了！谢！

ifhwfu

是不是要从   Join函数  自身来解释？

Join函数

      

描述

返回一个字符串，该字符串是通过连接某个数组中的多个子字符串而创建的。

语法

Join(sourcearray[, delimiter])

Join函数语法有如下命名参数：

部分	描述
sourcearray	必需的。包含被连接子字符串的一维数组。
delimiter	可选的。在返回字符串中用于分隔子字符串的字符。如果忽略该项，则使用空格(" ")来分隔子字符串。如果delimiter是零长度字符串("")，则列表中的所有项目都连接在一起，中间没有分隔符。

ifhwfu

Join函数  的第一个参数是一个一维数组，而且是一个水平的一位数组？

如果不用  transpose 函数进行转换，则 Cells(i, 1).Resize(1, 256) 只是一个单元格范围，不适合做 Join 函数的参数，而只用一次  transpose 函数  转换，得到的又是一个 垂直 一维数组，与 Join 函数的第一参数也不符合？

以上的说法纯粹是自己瞎猜的，还望版主不惜赐教。

ifhwfu

QUOTE:

以下是引用oobird在2008-2-4 22:26:08的发言：
Sub yy()
For i = 1 To 10
If Rows(i).Find("*") Is Nothing Then
MsgBox i & "空行"
Else
If Asc(Join(Application.Transpose(Application.Transpose(Cells(i, 1).Resize(1, 256))), "")) = 32 Then MsgBox i & "空行"
End If
Next
End Sub

用这个方法好像仍然不能解决搂住的需要。

4Mr3N27T.rar (7.27 KB, 下载次数: 23)

2008-2-7 16:00 上传

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

为了说明问题，特附上附件，以便大家验证。