.Clearcontents shiftxlUp

Question

我正在尝试清除活动行的内容并将底部行向上移动。我想清除而不是删除，因为我的单元格中有数据验证和公式。我在使用以下VBA时遇到错误，我理解shift：= xlUp只能用于.delete命令。有什么方法可以使用.clearcontents吗？

Sub shiftmeup()
    Dim ws As Worksheet
    Dim wb As Workbook
    Set wb = ThisWorkbook
    Set ws = wb.Sheets("Contacts") '/// The underhood of my contacts
    With ws.Range("D11:BL392")
        For i = .Rows.Count To 1 Step -1
            If IsEmpty(.Cells(i, 1)) Then .Rows(i).ClearContents shift:=xlUp
        Next
    End With
End Sub

Answer 1

你不能“删除底部行”而不删除。 ClearContents字面意思就是这样做，清除单元格的.value，然后不会修改xlsx以外的内容。