Excel 宏 - 根据行号删除一行

Question

很难说出这里问的是什么。这个问题是模棱两可的、模糊的、不完整的、过于宽泛的或修辞的，无法以目前的形式得到合理的回答。如需帮助澄清这个问题以便重新打开它，visit the help center .




9年前关闭。




请帮助..我需要一个宏来根据行号(行号)删除特定行，例如，如果我想删除第 2、9、20、150 行，如何在宏中完成，请提供宏，我可以在其中复制和粘贴代码中的行号并从模块运行。我在 sheet2 A 列中有行号，它们是要从 sheet1 中删除的行

Answer 1

一行:

Rows(4).Delete Shift:=xlUp

对于多行:

Union(Rows(4), Rows(7)).Delete Shift:=xlUp

对于您的特定情况，允许根据源工作表中的行号列表动态删除行。将 SourceWks 更改为存储数字的工作表，并将 deletedWks 更改为将要删除行的工作表。

Dim deleteRows As Range
Dim data() As Variant
Dim i As Double

Dim SourceWks As Worksheet, deleteWks As Worksheet

Set SourceWks = Sheet2
Set deleteWks = Sheet1

    With SourceWks
        data = .Range(.Cells(1, 1), .Cells(1, 1).End(xlDown))
    End With

    Set deleteRows = deleteWks.Rows(data(1, 1))

    For i = 2 To UBound(data, 1)

        Set deleteRows = Union(deleteRows, deleteWks.Rows(data(i, 1)))

    Next i

    deleteRows.Delete Shift:=xlUp