Question

我对VBS很新，需要帮助。

我有sheet1和sheet2。我的所有原始数据都在sheet1列A中，而sheet2将是摘要报告。我希望我的脚本搜索A列中的每个单元格并搜索“A级”。如果找到，复制包含A级单词的已退出行，并复制下一行并将其粘贴到sheet2中。这是一个例子。

Sheet 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

如果单元格包含特定文本，则复制整行+下一行

1 个答案: