如何使用WPS/Excel VBA查找数据所在行并在相应单元格填写新数据？本经验将给出WPS VBA查找数据所在行及在特定单元格添加新数据的经验方法介绍，其中使用Excel VBA的方法是一样的，可以根据WPS VBA查找数据所在行并在相应单元格填写新数据的经验方法进行操作。工具/原料moreWPS/ExcelVBA方法/步骤1/6分步阅读

首先，打开WPS表格，注意你的WPS表格已经正确安装了VBA控件才能进行操作，如果你的WPS表格没有安装VBA控件，使用Excel表格进行操作也一样可以。然后点击“开发工具”，点击“命令按钮”，在工作表空白的地方点击一下。如图，出现名称为CommandButton1的命令按钮。

2/6

双击CommandButton1的命令按钮，进入VB编辑器后台进行操作。

3/6

为了更好地演示此经验，下面使用实例说明。如我想在工作表名称为“工时统计”里查找“李四”所在的行，需要在

Private Sub CommandButton1_Click()

与

End Sub

之间添加以下代码：

Dim x As String, xr As Integer

x = 李四 输入搜索变量

Sheets(工时统计).Cells(1, 1).Select 确定搜索开始节点，一般选择第一个单元格

Set C = Range(A:A).Find(x, After:=Selection, LookIn:=-4176, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=True, MatchByte:=True, SearchFormat:=True)

If Not C Is Nothing Then

C.Select

xr = Selection.Row 输出变量x所在的行

End If

4/6

确认了“李四”所在的行xr后，假如我们要在第2列“李四”所在行输入李四的工时，我们这里假设为8小时，在End If前添加下列代码即可

Cells(xr, 2).Value = 8 姓名为x的员工工时为8小时

5/6

关闭VB编辑器，我还需要点击“退出设计”，然后保存WPS表格。

6/6

点击一下名称为CommandButton1的命令按钮，演示效果：查找“李四”所在的行，并在工时这一栏填写“8”小时的新数据，我们需要的功能实现啦！

注意事项

退出VB编辑器后记得退出设计，否则命令按钮还处于编辑状态而无法正常工作。

此方法用了简单的例子说明WPS/Excel VBA在查找数据所在的行及在特定单元格输入新数据的方法，在多而繁的数据表就能体现它的作用了，本经验仅仅是抛砖引玉而已。

在进行VBA编辑时，请先备份好工作薄，如果你的工作薄很重要的话。

EXCELWPS表格