请教一下，表格如何搜索指定列

各位大神，请教一下，表格如何搜索指定列，经常使用，我用AI查了宏命令，但是是excel的命令，wps运行出错。 以下是针对 ​​WPS表格中搜索J列​​ 的VBA宏代码示例，功能与搜索F列类似，但直接针对J列： ​​宏代码示例：在J列中搜索指定值​​ Sub FindInColumnJ() Dim SearchValue As String Dim FoundCell As Range Dim FirstAddress As String ' 弹出输入框获取搜索值 SearchValue = InputBox("请输入要搜索的内容：", "搜索J列") If SearchValue = "" Then Exit Sub ' 如果取消输入则退出 ' 在J列中搜索（从J1开始） Set FoundCell = Columns("J").Find(What:=SearchValue, _ LookIn:=xlValues, _ LookAt:=xlWhole, _ ' 精确匹配（可用 xlPart 改为模糊匹配） SearchOrder:=xlByRows, _ SearchDirection:=xlNext) If Not FoundCell Is Nothing Then FirstAddress = FoundCell.Address ' 记录第一个找到的位置 Do ' 高亮显示找到的单元格（可选） FoundCell.Interior.Color = RGB(255, 255, 0) ' 黄色高亮 ' 跳转到下一个匹配项 Set FoundCell = Columns("J").FindNext(FoundCell) Loop While Not FoundCell Is Nothing And FoundCell.Address <> FirstAddress Else MsgBox "未找到匹配内容！", vbExclamation End If End Sub ​​代码功能说明​​ ​​输入弹窗​​：通过 InputBox 获取用户输入的搜索值。 ​​精准搜索​​：在J列中逐行查找完全匹配的内容（LookAt:=xlWhole）。 ​​高亮显示​​：找到后单元格背景变为黄色（可修改颜色或删除此行）。 ​​循环查找​​：支持查找所有匹配项（直到回到起点）。 ​​友好提示​​：未找到时弹出警告框。 ​​如何使用此宏？​​ ​​打开VBA编辑器​​： 在WPS表格中按 Alt + F11 进入VBA编辑器。 ​​插入模块​​： 右键左侧项目窗口 → 插入 → 模块。 ​​粘贴代码​​： 将上述代码复制到模块中。 ​​运行宏​​： 返回表格，按 Alt + F8 → 选择 FindInColumnJ → 点击“运行”。