在Excel中，可以使用VBA（Visual Basic for Applications）编写查询小程序。以下是一个简单的示例，用于查询员工姓名和工资的对应关系：
1. 首先，打开Excel，按下`Alt + F11`键，打开VBA编辑器。
2. 点击菜单栏的`插入`，然后选择`模块`，在模块中输入以下代码：
```vba
Sub 查询员工工资()
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("Sheet1") '将"Sheet1"替换为实际的工作表名称
Dim rng As Range
Dim cell As Range
Dim i As Integer
Dim j As Integer
Dim result As Variant
' 设置要查询的范围
Set rng = ws.Range("A2:B10")
' 遍历范围中的单元格
For i = 1 To rng.Rows.Count
For j = 1 To rng.Columns.Count
If rng.Cells(i, j).Value <> "" Then
' 查找匹配的员工姓名
Set cell = ws.Cells.Find(What:=rng.Cells(i, j).Value, LookIn:=xlValues, LookAt:=xlWhole)
If Not cell Is Nothing Then
' 将结果存储在result变量中
result = result & vbCrLf & rng.Cells(i, j).Value & vbCrLf & rng.Cells(i, j + 1).Value
End If
End If
Next j
Next i
' 输出结果
MsgBox result
End Sub
```
3. 修改代码中的工作表名称（例如，将"Sheet1"替换为实际的工作表名称），然后点击菜单栏的`运行`，或者按`F5`键运行代码。
4. 运行完成后，会弹出一个消息框显示查询结果。
