在 Excel 中使用宏进行查询，并录入新数据，可以按照以下步骤进行操作：
1. 打开 Excel 文件，并按下 `Alt + F11` 组合键，打开 Visual Basic for Applications (VBA) 编辑器。
2. 在 VBA 编辑器中，插入一个新的模块。可以通过选择 "插入" 菜单，然后选择 "模块" 来完成。
3. 在新模块中编写宏代码以进行查询和录入新数据。以下是一个示例宏代码的框架，你可以根据自己的需求进行调整和扩展：
```vba
Sub 查询录入新数据()
' 定义变量
Dim ws As Worksheet
Dim lastRow As Long
' 设置工作表
Set ws = ThisWorkbook.Sheets("Sheet1") '根据实际工作表名称进行修改
' 确定最后一行
lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
' 进行查询
' 根据需要进行录入新数据的操作
End Sub
```
4. 在代码中的 "进行查询" 的部分，你可以使用 Excel 提供的各种函数、条件语句和循环来完成你的查询操作。例如，你可以使用 `VLOOKUP` 函数来在指定的数据表中查找相应的值。
5. 在代码中的 "根据需要进行录入新数据的操作" 的部分，你可以使用 `Range` 对象来指定要录入新数据的单元格，并使用相关操作（如赋值）来录入数据。
6. 完成代码的编写后，保存 VBA 编辑器中的更改，并关闭编辑器。
7. 返回 Excel 工作表，按下 `Alt + F8` 组合键，打开 "宏" 对话框。
8. 在 "宏" 对话框中，选择你编写的宏，并点击 "运行" 按钮。
