excel - 如何使用宏删除excel中的特定行和升档单元格？

Question

有人可以帮助我删除 Excel 中的特定行，然后使用宏向上移动单元格吗？例如，我需要删除第 8、14 和 79 行。

在此先感谢您的帮助

标签： excelvba

Answer 1

尝试：

Option Explicit

Sub test()

    Dim LastRow As Long, i As Long

    With ThisWorkbook.Worksheets("Sheet1") '<- Change sheet name if needed

        LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row '<- Find lastrow of column A where we assume data appears

        For i = LastRow To 1 Step -1 '<- Loop from bottom to top
            If i = 8 Or i = 14 Or i = 79 Then '<- If row is 8 or 14 or 79
                .Rows(i).EntireRow.Delete '<- Delete row
            End If

        Next i

    End With

End Sub

Pᴇʜ 建议的另一个解决方案（见评论）：

Option Explicit

Sub test()

    ThisWorkbook.Sheets("Sheet1").Range("8:8,14:14,79:79").EntireRow.Delete

End Sub

另一个解决方案：

Option Explicit

Sub test()

    With ThisWorkbook.Sheets("Sheet1")
        Union(.Rows(8), .Rows(14), .Rows(79)).Delete Shift:=xlUp
    End With

End Sub