[求助]用命令按鈕控件+VBA實現查找數據並返回指定位置？

Dim ARR

Sheets("查詢").Range("C2:E2").ClearContents

ARR = Sheets("字典").Range("A2", Sheets("字典").[C2].End(xlDown))

For I = 1 To UBound(ARR)

If Sheets("查詢").[A2] = ARR(I, 3) Then

Sheets("查詢").[C2:E2] = Array(ARR(I, 1), ARR(I, 2), ARR(I, 3))

End If

Next

End Sub

最後妳再插入壹個表單按鈕就行了，執行這段代碼

數組，區域，字典比較類似 都可以用 只是數組更方便而已