VBA小程序查找整理数据

根据指定内容查找另外工作表中数据并整理到同一表格中。例如，你可以使用此小程序来快速从汇总表中找出指定字段的数据，并根据数据查找对应的人名、部门和联系方式。具体实现方法请参考以下代码：

Sub LookupData()
    'define variables
    Dim FindString As String
    Dim Rng As Range
    Dim i As Long
    'set search criteria
    FindString = InputBox("Enter the search criteria:", "Lookup Data")
    If Trim(FindString) = "" Then Exit Sub
    'search for data and copy to new sheet
    Set Rng = Sheets("Data").Columns(1).Find(FindString, LookIn:=xlValues, LookAt:=xlWhole)
    If Not Rng Is Nothing Then
        Sheets.Add(After:=Sheets(Sheets.Count)).Name = "Result"
        Rng.Offset(0, 1).Resize(1, 2).Copy Sheets("Result").Range("A1")
        For i = 1 To Sheets("List").Range("A" & Rows.Count).End(xlUp).Row
            If Sheets("List").Cells(i, 1).Value = Rng.Offset(0, 1).Value Then
                Sheets("List").Range("A" & i).Resize(1, 3).Copy Sheets("Result").Range("B1")
                Exit For
            End If
        Next i
    Else
        MsgBox "No match found."
    End If
End Sub