我对 VBS 非常陌生,需要帮助。
我有sheet1和sheet2。我所有的原始数据都在sheet1 A列中,sheet2将是总结报告。我希望我的脚本搜索 A 列中的每个单元格并搜索“Grade A”。如果找到,复制包含 A 级单词的整行,并复制下一行并将其粘贴到工作表 2 中。这是一个例子。
表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
提前谢谢您。
尝试以下代码
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