excel - 删除除 column1 之外的行元素，然后将单元格向上移动以获取其余部分

Question

有没有办法删除除 A 列中的行元素之外的所有行元素，然后使用 VBA 编码仅针对已删除的行向上移动单元格。现在我手动选择除了 A 列中的行元素之外的单行，然后使用 ctrl+- 删除并选择向上移动单元格。

我也试过这个

Worksheets("sheet1").Rows(i).Delete Shift:=xlShiftUp

但它会删除整行。

Answer 1

您将需要指定不包括该列的范围，例如

Worksheets("sheet1").Range("B1:D1").Delete Shift:=xlUp

例如，您还可以指定从 B2 开始，并动态查找同一行中的最后一列:

With Worksheets("Sheet1")
   .Range(.Cells(2, 2), .Cells(2, .Cells(2, .Columns.Count).End(xlToLeft).Column)).Delete Shift:=xlUp
End With

为了使它更容易修改，您可以使用常量，并且您应该测试 lastColumn 大于 START_COLUMN 或者您可以删除保留列。

Const ROW_OF_INTEREST As Long = 2
Const START_COLUMN As Long = 2
Dim lastColumn As Long

With Worksheets("Sheet1")
    lastColumn = .Cells(ROW_OF_INTEREST, .Columns.Count).End(xlToLeft).Column
    If lastColumn > START_COLUMN Then
        .Range(.Cells(ROW_OF_INTEREST, START_COLUMN), .Cells(ROW_OF_INTEREST, .Cells(ROW_OF_INTEREST, .Columns.Count).End(xlToLeft).Column)).Delete Shift:=xlUp
    End If
End With