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

ar5n3qh5 于 2023-01-18 发布在其他

关注(0)|答案(1)|浏览(161)

我是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

先谢谢你。

excel

来源：https://stackoverflow.com/questions/10888464/if-cell-contains-specific-text-copy-whole-row-next-row

1条答案

按热度按时间

rt4zxlrg1#

请尝试以下代码

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

赞(0）回复(0）举报 2023-01-18

我来回答

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

1条答案

相关问题

热门标签

最新问答