写一个Excel数据查询的vba代码

好的，以下是一个基本的Excel数据查询的VBA代码示例，仅供参考：

Sub QueryData()

Dim ws As Worksheet '定义工作簿对象
Set ws = ThisWorkbook.Sheets("Sheet1") '设置要查询的工作簿

Dim dataRange As Range '定义数据范围
Set dataRange = ws.Range("A1:B10") '设置数据范围，假设是A1到B10的数据

Dim searchValue As String '定义要查询的关键字
searchValue = InputBox("请输入要查询的关键字：") '通过输入框输入要查询的关键字

Dim resultRange As Range '定义查询结果范围
Set resultRange = dataRange.Find(searchValue) '通过Find方法查找关键字匹配的单元格

If Not resultRange Is Nothing Then '如果找到了匹配
MsgBox "已找到关键字" & searchValue & vbCrLf & "数据在" & resultRange.Address
Else '如果未找到匹配
MsgBox "未找到关键字" & searchValue
End If

End Sub

注意，这只是一个基础的示例，你需要根据具体需求进行修改和扩展。