[求助]用命令按钮控件+VBA实现查找数据并返回指定位置？

Question

在查询页A2单元格里，我输入“篮球”，点击按钮，在右边返回字典页中符合条件的数据行，怎么写VBA语句，求教各位大神。

Answer 1

Sub text()
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
最后你再插入一个表单按钮就行了，执行这段代码
数组，区域，字典比较类似 都可以用 只是数组更方便而已

Answer 2

公式就可以了