返回目录:excel表格制作
<单元格区域>,必须指定,返回一个Range对象。
参数What,必需指定。代表所要查找的数据,可以为字符串、整数或者其它任何数据类型的数据。对应于“查找与替换”对话框中,“查找内容”文本框中的内容。
参数After,可选。指定开始查找的位置,即从该位置所在的单元格之后向后或之前向前开始查找(也就是说,开始时不查找该位置所在的单元格,直到Find方法绕回到该单元格时,才对其内容进行查找)。所指定的位置必须是单元格区域中的单个单元格,如果未指定本参数,则将从单元格区域的左上角的单元格之后开始进行查找。
参数LookIn,可选。指定查找的范围类型,可以为以下e799bee5baa6e79fa5e98193e78988e69d83361常量之一:xlValues、xlFormulas或者xlComments,默认值为xlFormulas。对应于“查找与替换”对话框中,“查找范围”下拉框中的选项。
参数LookAt,可选。可以为以下常量之一:XlWhole或者xlPart,用来指定所查找的数据是与单元格内容完全匹配还是部分匹配,默认值为xlPart。对应于“查找与替换”对话框中,“单元格匹配”复选框。
参数SearchOrder,可选。用来确定如何在单元格区域中进行查找,是以行的方式(xlByRows)查找,还是以列的方式(xlByColumns)查找,默认值为xlByRows。
拓展资料:
Find函数用来对原始数据中某个字符串进行定位,以确定其位置。Find函数进行定位时,总是从指定位置开始,返回找到的第一个匹配字符串的位置,而不管其后是否还有相匹配的字符串。
中文名
find函数
外文名
foundion
语 法
find_text
使用语法
FIND(find_text,within_text,start_num)
Find_text 是要查找的字符串。
Within_text 是包含要查找关键字的单元格。就是说要在这个单元格内查找关键字
Start_num 指定开始进行查找的字符数。比如Start_num为1,则从单元格内第一个字符开始查找关键字。如果忽略 start_num,则假设其为 1。
注意
使用 start_num 可跳过指定数目的字符。例如,假定使用文本字符串“AYF0093.YoungMensApparel”,如果要查找文本字符串中说明部分的第一个“Y”的编号,则可将 start_num 设置为 8,这样就不会查找文本的序列号部分。FIND 将从第 8 个字符开始查找,而在下一个字符处即可找到 find_text,于是返回编号 9。FIND 总是从 within_text 的起始处返回字符编号,如果 start_num 大于 1,也会对跳过的字符进行计数。
如果 find_text 是空文本 (),则 FIND 则会返回数值1。
Find_text 中不能包含通配符。
如果 within_text 中没有 find_text,则 FIND返回错误值 #VALUE!。
如果 start_num 不大于 0,则 FIND返回错误值 #VALUE!。
如果 start_num 大于 within_text 的长度,则 FIND 返回错误值 #VALUE!。
参考资料:百度百科:find函数
程序运行正抄常,一切OK
VBA每次只能查找一个RNG啊 ,你不循袭环咋办,第一循环百后内存度中RNG已经得到了一个ADDDRESS
不重设知RANGE那就是道死循环
没有Set rng = Range("h2:h36").FindNext(rng),你的LOOP后面的条件就是没用的
在Excel VBA中Find函数的基本用法。Find函数就是Excel表格中的查找功能,可以通过录制宏的方法来获得Find的代码。
Sub Macro1()
Cells.Find(What:="A", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
Cells.FindNext(After:=ActiveCell).Activate
End Sub
从上面可以看到Find函数共有8个参数,分别对应Excel表格查找里面选项的各个项目,这里我就不多说了,感兴趣可以自己试下,其中只有一个参数是必须的,那e799bee5baa6e4b893e5b19e337就是"What",即要找的内容。下面来看整理之后的代码
Sub Find演示()
Dim rng
Set rng = ActiveSheet.UsedRange.Find(What:="A")
'MsgBox "字母A地址为" & rng.Address(0, 0)
'MsgBox "字母A所在行为" & rng.Row
MsgBox "字母A所在列为" & rng.Column
End Sub
如果一定要复用,可以按如下方式使用:制百
application.worksheetfunction.find(string1, string2)
在string2中查找string1
建议使用直接instr:
if instr(string1, string2)>0 代表度string1中包含string2