用VBA录制的查找
Cells.Find(What:="想查找的数据", After:=ActiveCell, LookIn:=xlValues, LookAt:= xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= False).Activate
Find 方法
在区域内查找特定信息，并返回Range对象，该对象代表所找到的第一个包含所查找信息的单元格。如果未发现匹配单元格，就返回 Nothing。本方法不影响选定区域或活动单元格。
关于在Visual Basic中使用Find工作表函数的详细内容，请参阅在Visual Basic中使用Microsoft Excel工作表函数。
语法
expression.Find(What, After, LookIn, LookAt, SearchOrder, SearchDirection, MatchCase, MatchByte)
expression 必选。该表达式返回 Range 对象。
What Variant类型，必选。要查找的数据。可为字符串或任意Microsoft Excel数据类型。
After Variant类型，可选。表示查找过程将从其之后开始进行的单元格。此单元格对应于从用户界面查找时的活动单元格位置。注意After必须是查找区域中的单个单元格。请记住查找是从该单元格之后开始的；直到本方法环绕到此单元格时，才检测其内容。如果未指定本参数，查找将从区域的左上角单元格之后开始。
LookIn Variant类型，可选。可为下列XlFindLookIn常量之一：xlFormulas、xlValues或xlComments。
LookAt Variant类型，可选。可为下列XlLookAt常量之一：xlPart或xlWhole。
SearchOrder Variant类型，可选。可为下列XlSearchOrder常量之一：xlByColumns或xlByRows。
SearchDirection Variant类型，可选。可为下列XlSearchDirection常量之一：xlNext或xlPrevious。默认常量为xlNext。
MatchCase Variant类型，可选。若指定为True，就进行区分大小写的查找。默认值为False。
MatchByte Variant类型，可选。仅在选择或安装了双字节语言支持时使用。若指定为True，就使双字节字符仅匹配双字节字符。若指定为False，则双字节字符可匹配其等价的单字节字符。
说明
每次调用本方法后，参数LookIn、LookAt、SearchOrder和MatchByte的设置将保存。如果下一次调用时未指定这些参数，将使用保存的设置。设置这些参数将改变“查找”对话框中的设定，而在“查找”对话框中修改相应设定，也将改变忽略这些参数时所使用的保存值。为避免出现麻烦，每次调用本方法时，请显式指定这些参数的值。