电子表格中查找一个关键词后整行全部复制

war5w

电子表格中查找一个关键词后，将包含这个关键字的整行全部复制。谢谢

上清宫主

改自帮助中的示例代码
Sub test()
Sheets("自建").Select
Cells.Clear
With Sheets("sheet1").[a:a]
   Set c = .Find("今天", LookIn:=xlValues)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
            i = i% + 1
            c.Resize(1, 2).Copy Cells(i, 1)
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
End With
End Sub