[已解决]如何删除空行

chake007

如何删除空行

我想删除有颜色区域之间的空行，并只保留一行

求助了，各位高手帮帮忙啊，感激不尽

本人想应用vb制定个循环删除，因为这之间的行数是不固定的

[此贴子已经被作者于2010-5-27 9:54:04编辑过]

最佳答案

月排行榜 / 总排行榜

amulee

2010-5-27 10:58

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

跳转到最佳答案楼层

wayy

录个宏，定位空值，然后删除行就可以了。

xcbilly

F5定位，空值，确定，右键点删除，下方单元格上移。“并只保留一行”不明白是什么意思

tkgg93

QUOTE:

以下是引用xcbilly在2010-5-27 9:49:00的发言：

F5定位，空值，确定，右键点删除，下方单元格上移。“并只保留一行”不明白是什么意思

空行：3行删除2行，，2行删除1行，1行的不删除

gy7898

等啊，给做个你看看是不是你的意思

[此贴子已经被作者于2010-5-27 10:02:56编辑过]

chake007

不是这样的，我想用vb来搞的，是我的一个程序中需要这样的程序段

不过兄弟你这个动画是如何录制的啊，教教我啊

tkgg93

VBA的不会，看技巧的是不是你要的效果

如何删除空行

amulee

Sub 删除空行()
    Range("B2:B" & Range("B65536").End(xlUp).Row).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

chake007

兄弟啊，我还想保留一行的，你这样不是都删除光了吗

上清宫主

整复杂点：填充、排序、清除

[X3:X4] = [{1;2}]  '假设你没到X列，如果用到了，那就再向后成AX等等
[X3:X4].AutoFill Destination:=Range("X3:X" & Range("A65536").End(xlUp).Row)
Range("a3:x" & Range("A65536").End(xlUp).Row).Sort Key1:=Range("A3")
Range("a3:x" & Range("A65536").End(xlUp).Row).Sort Key1:=Range("x3")
Range("X:X").Clear