删除在另一个工作表上找到的某一行之后的所有行

Sub DeleteRowsAfterSpecificRow()
    Dim wsSource As Worksheet
    Dim wsTarget As Worksheet
    Dim specificRow As Long
    Dim lastRow As Long
    
    ' 设置源工作表和目标工作表
    Set wsSource = ThisWorkbook.Sheets("Sheet1")
    Set wsTarget = ThisWorkbook.Sheets("Sheet2")
    
    ' 假设我们要找的特定行号在Sheet1的A列
    specificRow = wsSource.Cells(wsSource.Rows.Count, "A").End(xlUp).Row
    
    ' 获取目标工作表的最后一行
    lastRow = wsTarget.Cells(wsTarget.Rows.Count, "A").End(xlUp).Row
    
    ' 删除特定行之后的所有行
    If specificRow < lastRow Then
        wsTarget.Rows(specificRow + 1 & ":" & lastRow).Delete
    End If
End Sub