删除空的行到底部

我试图删除空行到底部。 当我使用下面的方式时，表中的公式存在问题。

在右侧新build一列。 使用公式= IF（C2 <>“”，2,1）并填充。 从窥探中隐藏栏目（只需右键单击顶部的灰色栏标题以隐藏它）按此栏而不是Csorting。

先谢谢你！

Answer 1

尝试这个，

当column c中有空单元格时，它将删除并清空行

码

 Sub g() Dim r As Range Dim rng As Range For Each r In Range("C1:C" & Cells(Rows.Count, 3).End(xlUp).Row) If r = "" Then If Not rng Is Nothing Then Set rng = Union(rng, r) Else Set rng = r End If Next r rng.EntireRow.Copy Range("A" & Cells(Rows.Count, 3).End(xlUp).Row + 1).PasteSpecial (xlPasteValues) rng.EntireRow.Delete End Sub 

Answer 2

如果D列是空的，你可以试试这个代码：

 Option Explicit Sub main() With Range("C1", Cells(Rows.Count, 3).End(xlUp)) .AutoFilter Field:=1, Criteria1:="<>" .Resize(.Rows.Count - 1).Offset(1).SpecialCells(xlCellTypeVisible).Copy .Offset(1, 1).PasteSpecial Application.CutCopyMode = False .Parent.AutoFilterMode = False .Value = .Offset(, 1).Value .Offset(, 1).ClearContents End With End Sub