返回目录：excel表格制作
在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表格查找里面选项的各个项目，这里我就不多说了，感兴趣可以自己试下，其中只有一个参数是必须的，e799bee5baa6e997aee7ad94e78988e69d83337那就是"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
<单元格区域>，必须指定，返回一e799bee5baa6e78988e69d83361个Range对象。
参数What，必需指定。代表所要查找的数据，可以为字符串、整数或者其它任何数据类型的数据。对应于“查找与替换”对话框中，“查找内容”文本框中的内容。
参数After，可选。指定开始查找的位置，即从该位置所在的单元格之后向后或之前向前开始查找(也就是说，开始时不查找该位置所在的单元格，直到Find方法绕回到该单元格时，才对其内容进行查找)。所指定的位置必须是单元格区域中的单个单元格，如果未指定本参数，则将从单元格区域的左上角的单元格之后开始进行查找。
参数LookIn，可选。指定查找的范围类型，可以为以下常量之一：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函数
如果一定百要用，可以按如下度方知式使用：道
application.worksheetfunction.find(string1, string2)
在string2中查找string1
建议使用直接内instr：
if instr(string1, string2)>0 代表容string1中包含string2