各位大神好,小弟不才.想寫一個查詢資料用的VBA
以下是資料庫

以下是結果

我希望在A欄中輸入資料回傳結果到B:D
如果是單的一資料小弟已經解決(就是說如果A欄都是同一類的如都是姓名),現時我想輸入不同的資料都能回傳出結果
小弟愚笨希望各位能指點一下.同時附上代碼教各位大神賜教.

Dim inputdatedate As String
Dim answer As Range

Worksheets(2).Range("A2").Activate

Do Until ActiveCell = ""
inputdate = Worksheets(2).Range(ActiveCell, ActiveCell).Value

Set answer = Worksheets(1).Range("A:A").Find(inputdate, MatchCase:=True, lookat:=xlWhole)


Worksheets(2).Range(ActiveCell, ActiveCell).Offset(0, 1) = answer.Offset(0, 0).Value  '姓名
Worksheets(2).Range(ActiveCell, ActiveCell).Offset(0, 2).Value = answer.Offset(0, 1).Value '電話號碼
Worksheets(2).Range(ActiveCell, ActiveCell).Offset(0, 3).Value = answer.Offset(0, 2).Value '員工號碼

ActiveCell.Offset(1, 0).Select

Loop

End Sub