VBA模糊查询sheet1,并将资料复制至sheet2

Question

当点击表中的搜索按钮时，弹出可手动输入搜索内容的搜索框，采用模糊搜索的方式
当输入的资料与"汇总"表中所列相符时，将资料所在的整行复制至Sheet2
如:当输入"sd"进行模糊搜索，则可将"汇总"中所有包含"sd"的数据行复制至sheet2

Answer 1

Sub sousuo()
    Dim r As Long
    Dim c As Long
    Dim str As String
    Dim rng As Range
    str = InputBox("输入搜索内容")
    If Len(str) = 0 Then Exit Sub
    c = Sheets("Sheet2").Range("A65536").End(xlUp).Row
    Sheets("汇总").Activate
    For r = 1 To [A65536].End(xlUp).Row
        Set rng = Rows(r).Find(str, LookIn:=xlValues, LookAt:=xlPart)
        If Not rng Is Nothing Then
            Rows(r).Copy
            c = c + 1
            Worksheets("Sheet2").Range("A" & c).PasteSpecial _
                                            Paste:=xlPasteAll, Operation:=xlNone, _
                                            SkipBlanks:=False, Transpose:=False
        End If
    Next
    Application.CutCopyMode = False
End Sub