清除（不删除）行的单元格向上移动

为了从表格中清除患者，我使用这个简单的代码行

Selection.Delete Shift:=xlUp 

每次我这样做，我松散在表的底部行，因为它删除行，不清除值。

清除绿色之后，还有其他方法可以将剩余的行向上移（不影响我的表）吗？

“PAID”只是一个简单的button，用于select内容的颜色变化。

Answer 1

该代码将从选定的行中删除内容，并将该行中的每一行都移动。 如果遇到空行，它将停止运行。

为了清除目的，您不应该selectB列，而只能selectC到G列。

 Sub delete_line() For i = 1 To 100000 Selection.ClearContents Selection = Selection.Offset(1, 0).Value Selection.Offset(1, 0).Select If IsEmpty(Selection.Cells(1, 1).Value) = True Then Exit For Next i End Sub 

没有testing多行select。

编辑：如果您select多行，它将不起作用。