怎么用VBA调用FIND函数进行数据智能查找



作者:excel函数与vba实例 2018-04-18 12:10:33

我们在文本数据提取过程中会使用到常见的FIND函数,运用这个函数去从一段话当中提取我们需要的内容。当然如果数据较少的情况下我们可以使用一条函数即可,但是当工作量较大的时候就需要考虑怎么简化我们的操作。所以今天我们就来学学怎么在VBA中用FIND进行数据查找。今天主要初步讲解一下find方法在VBA当中的运用。

▼Find方法介绍▼

Find使用方法与表格里面的查找是一样的,但是VBA代码中参数会比较多。如下:

怎么用VBA调用FIND函数进行数据智能查找

如上图,FIND相关参数如下表格解释。

表达式.Find(What, After, LookIn, LookAt, SearchOrder, SearchDirection, MatchCase, MatchByte, SearchFormat)

名称必需数据类型说明
What必选Variant要搜索的数据。可为字符串或任意 Microsoft Excel 数据类型。
After可选Variant表示搜索过程将从其之后开始进行的单元格。此单元格对应于从用户界面搜索时的活动单元格的位置。请注意:After 必须是区域中的单个单元格。要记住搜索是从该单元格之后开始的;直到此方法绕回到此单元格时,才对其进行搜索。如果不指定该参数,搜索将从区域的左上角的单元格之后开始。
LookIn可选Variant信息类型。
LookAt可选Variant可为以下 XlLookAt 常量之一:xlWhole 或 xlPart。
SearchOrder可选Variant可为以下 XlSearchOrder 常量之一:xlByRows 或 xlByColumns。
SearchDirection可选XlSearchDirection搜索的方向。
MatchCase可选Variant如果为 True,则搜索区分大小写。默认值为 False。
MatchByte可选Variant只在已经选择或安装了双字节语言支持时适用。如果为 True,则双字节字符只与双字节字符匹配。如果为 False,则双字节字符可与其对等的单字节字符匹配。
SearchFormat可选Variant搜索的格式。
▼案例:查找最后一个单元格▼

怎么用VBA调用FIND函数进行数据智能查找

代码:

Sub 查找最后一个单元格()

Set endrng = Cells.Find("*", , xlFormulas, , , xlPrevious)

Range([a1], endrng).Select

End Sub

解释:

1、设置用set自定义一个范围变量endrng;

2、先运用FIND方法查找到最后一个单元格区域;

3、将A1至查找到的最后一个单元格区域连接起来进行选择。

现在有没有学会这个函数的使用啊。


0