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

Question

To clear patients from a table I use this simple line of code

Selection.Delete Shift:=xlUp

每次我这样做时，我都会在表格的底部放松行，因为它正在删除行，而不是清除值。

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

“PAID”只是一个简单的选择颜色变化按钮。

Answer 1

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

出于清除目的，您不应选择B列，而只选择C到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

Haven没有对多行选择进行测试。

编辑： 如果您选择多行，它将无法工作。