QUOTE(ddg @ 2012年05月27日 Sunday, 08:47 AM)
本人想在工作表中删除多余的行(空行),在百度里学着编写下列代码:
Private Sub worksheet_selectionchange(ByVal target As Range)
i = 1
j = 1
Do While j <= 100
'不知道你到底有多少行数据,搞大点
If Cells(i) = "" Then
'如果第一个单元格为空
Rows(i).Select
Selection.Delete shift:=xlUp
Else
i = i + 1
End If
i = j + 1...
本人想在工作表中删除多余的行(空行),在百度里学着编写下列代码:
Private Sub worksheet_selectionchange(ByVal target As Range)
i = 1
j = 1
Do While j <= 100
'不知道你到底有多少行数据,搞大点
If Cells(i) = "" Then
'如果第一个单元格为空
Rows(i).Select
Selection.Delete shift:=xlUp
Else
i = i + 1
End If
i = j + 1
Loop
End Sub
显示这行 If Cells(i) = "" Then...