更新时间:2022-01-21 09:17:45
试试下面的代码
Sub Test()
For Each Cell In Sheets(1).Range("A:A")
If Cell.Value = "GradeA" Then
matchRow = Cell.Row
Rows(matchRow & ":" & matchRow + 1).Select
Selection.Copy
Sheets("Sheet2").Select
lastRow = ActiveSheet.UsedRange.Rows.Count
If lastRow > 1 Then lastRow = lastRow + 1
ActiveSheet.Range("A" & lastRow).Select
ActiveSheet.Paste
Sheets("Sheet1").Select
End If
Next
End Sub