1、首先需要将表格的需求格式写出来，这里只是举例简单说明，当然代码的作用会在使用大量的数据下显示出来效果，并提高效率，简易格式如下图所示：
2、为了能将按钮的时间启用，需要将按钮的模块调出，以便可以点击按钮后触发模块中的代码，实现代码的运行，如下图所示：
1、接下来就是编写简单的代码，需要先编写一个简单的循环代码，如下图所示：
2、在循环代码的基础上加入判断语句，换句话说，也就是对每条数据的简单检索判断，代码如下图所示：
3、整体的代码如下：
Dim i As Integer
For i = 2 To Sheet1.Range("A1").End(xlDown).Row + 1
If Len(Sheet1.Cells(i, 1)) = 3 Then
Sheet1.Cells(i, 4) = "3位数"
End If
Next i
1、最后就是点击按钮执行结果，如下图所示：
2、从执行的结果可以看出，对表格中的第一列中所有单元格的数据进行检索，判断是否有三位数的，并将其为三位数的显示出来，结果在检索结果的那一列中的同一行显示，以便查看，如下图所示：
3、以上就是对数据的简单检索，也就是循环语句加上判断。
