如果单元格包含特定文本,则复制整行 + 下一行 [英] if cell contains specific text, copy whole row + next row
本文介绍了如果单元格包含特定文本,则复制整行 + 下一行的处理方法,对大家解决问题具有一定的参考价值,需要的朋友们下面随着小编来一起学习吧!
问题描述
我对 VBS 真的很陌生,需要帮助.
I am really new with VBS and need help.
我有 sheet1 和 sheet2.我所有的原始数据都在 sheet1 列 A 中,sheet2 将是摘要报告.我希望我的脚本搜索 A 列中的每个单元格并搜索A 级".如果找到,复制包含A级单词的整行,并复制下一行并将其粘贴到sheet2中.这是一个例子.
I have sheet1 and sheet2. All my raw data is in sheet1 column A and sheet2 will be summary report. I want my script to search each cell in column A and search for "Grade A". If find, copy entired row which contains Grade A word and also copy next row and paste it in sheet2. Here is an example.
表 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 运行脚本后应该是这样的.
Sheet2 shoud look like this after running script.
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
这篇关于如果单元格包含特定文本,则复制整行 + 下一行的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!
查看全文