图示EXCEL表格vba系列18之循环检索功能代码编写

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、以上就是对数据的简单检索，也就是循环语句加上判断。