Excel Marcro - 根據行號刪除一行

Question

請幫助..我需要一個宏來刪除基於行號（行號）的特定行，例如，如果我想刪除第二，第九，第20，第150行，如何在宏中完成，請提供一個宏，我可以在代碼中複製和粘貼行號並從模塊運行。我在Sheet2的A列的行數中的行從工作表Sheet1

Answer 1

一行被刪除：

Rows(4).Delete Shift:=xlUp 

對於多行：

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

針對您的特殊情況下允許根據源表中的行號列表動態刪除行。將SourceWks更改爲數字存儲和刪除工作表的工作表，其中行將被刪除。

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