在实际工作中,我们会遇到各种问题,并且是层出不穷,对于问题解决往往有各种方式,不要由于自己知识的匮乏而限制了自己的想象力。
今天我就数据查找的实现来看看VBA代码的功效。看看用不同的方法来实现查找的功能.我今日的实例都是在之前用过的,或者在我的资料中有给出和讲解,今日只是思路的讲解
方案一: FIND方案,此方案源于《VBA代码解决方案》。
Sub mynzFIND_2() '非唯一查询
Dim bcontinue As Boolean
Dim mysearch As Range
Dim myfind As Range
Dim fristmyfind As String
Sheets("MY").Select
Sheets("MY").Range("b2 : e3000").Select
Selection.Clear
i = 2
Do While Cells(i, 1) <> "