[已解决]如何删除空行

上清宫主

还要留一行哟，那不行，得改改

amulee

Sub 删除空行()
    Application.ScreenUpdating = False
    Dim i&, Temp&
    For i = Range("B65536").End(xlUp).Row To 2 Step -1
        If Len(Cells(i, 2)) = 0 Then
            Temp = Temp + 1
            If Temp > 1 Then
                Rows(i).Delete
            End If
        Else
            Temp = 0
        End If
    Next i
    Application.ScreenUpdating = True
End Sub

上清宫主

不撞南墙不回头，说明如前：

Dim arr(), t As Boolean
arr = Range("a3:A" & Range("A65536").End(xlUp).Row).Value
ReDim Preserve arr(1 To UBound(arr), 1 To 2)
t = True
For i% = 1 To UBound(arr)
  If Len(arr(i, 1)) > 1 Then
     arr(i, 2) = i: t = True
  ElseIf t Then
     arr(i, 2) = i
     t = False
  End If
Next
[X3].Resize(i - 1) = Application.Index(arr, , 2)
Range("a3:x" & Range("A65536").End(xlUp).Row).Sort Key1:=Range("x3")
Range("X:X").Clear

chake007

多谢啦