如果單元格包含特定文本，則復制整行 + 下一行

Question

我對 VBS 很陌生，需要幫助。

我有sheet1和sheet2。 我所有的原始數據都在 sheet1 A 列中，而 sheet2 將是摘要報告。 我希望我的腳本搜索 A 列中的每個單元格並搜索“A 級”。 如果找到，則復制包含 A 級單詞的整行，並復制下一行並將其粘貼到 sheet2 中。 這是一個例子。

表 1：

A              B                 C                
GradeA     sdfasdf        sadfsadf
Address    sadfas         sdfsadfs   
Grade B    sadfsd         dgfdsgdf
Address    sdfasf          ertertewt
Grade C    fhgfdgh        ukjtyuyt
GradeA     hhh             lll
Address    ppp             hhh

運行腳本后，Sheet2 應該看起來像這樣。

A              B                 C                
GradeA     sdfasdf        sadfsadf
Address    sadfas         sdfsadfs 
GradeA     hhh            lll
Address    ppp            hhh

先感謝您。

Answer 1

試試下面的代碼

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