excel - Excel Marcro - 行番号に基づいて行を削除する

Question

助けてください..行番号（行番号）に基づいて特定の行を削除するマクロが必要です.コードの行番号をコピーして貼り付け、モジュールから実行できるマクロ。シート2の列Aに行番号があり、これはシート1から削除される行です

Answer 1

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