excel - Excel 宏用于搜索关键字并将整行复制到另一张工作表

Question

我有一个大约 50k 行的 excel 表，我需要一个宏来搜索该表中的一个单元格，如果它找到它将整行复制到另一张表，我的问题是关键字可能在多行上，所以如果有就像带有该关键字的 4 个单元格我需要它来复制所有 4 行并将它们粘贴到另一张表中

Dim intPasteRow As Integer
intPasteRow = 2

Sheets("Sheet2").Select
Columns("A:AV").Select
On Error Resume Next
Selection.Find(What:="m12", After:=ActiveCell, LookIn:= _
    xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:= _
    xlNext, MatchCase:=True, SearchFormat:=True).Activate
If Err.Number = 91 Then
    MsgBox "ERROR: 'Keyword' could not be found."
    Sheets("Sheet1").Select
    End
End If

Dim intRow As Integer
intRow = ActiveCell.Row
Rows(intRow & ":" & intRow).Select
Selection.Copy

Sheets("Sheet1").Select
ActiveSheet.Paste

End Sub
Sub saci()

Dim rng As Range
Set rng = Range(ActiveCell, ActiveCell.Offset(10000, 0))
rng.EntireRow.Select
With Selection.EntireRow
.Cut
.Offset(.Rows.Count + 1).Insert
.Select
End With
Range("A4").Select

End Sub

到目前为止，它在Sheet2中找到了第一个“m12”单元格并将整行复制到Sheet1，我如何让它在找到“m12”后继续搜索并复制其中包含“m12”的所有行而不是第一行?

标签： excelvba