这里我们通过VBA if条件判断和for循环语句，来制作一个简单的订单查询记录系统。
在订单记录表中，输入业务员的名字，然后单击“查询订单”按钮，即可查询出该业务员的所有订单记录。
以下附实例代码及文件下载，代码仅供参考。
Sub serarchOrder()
Dim i As Integer, lastRow As Integer, recordNums As Integer
lastRow = Cells(Rows.Count, 11).End(xlUp).Row
'清空之前查询记录
If lastRow > 2 Then
Range("k3", "n" & lastRow).ClearContents
End If
'最后一条订单记录所在行
recordNums = Cells(Rows.Count, 2).End(xlUp).Row
For i = 2 To recordNums
If Cells(i, 6) = [j3] Then
'复制符合条件记录
Cells(lastRow + 1, 11) = Cells(i, 2) '订单号
Cells(lastRow + 1, 12) = Cells(i, 3) '客户姓名
Cells(lastRow + 1, 13) = Cells(i, 4) '产品名称
Cells(lastRow + 1, 14) = Cells(i, 5) '订购数量
End If
'重新定位最后一条记录
lastRow = Cells(Rows.Count, 11).End(xlUp).Row
Next
End Sub
