，必须指定，返回一个Range对象。 参数What，必需指定。代表所要查找的数据，可以为字符串、整数或者其它任何数据类型的数据。对应于“查找与替换”对话框中，“查找内容”文本框中的内容。 参数After，可眩指定开始查找的位置，即从该位置所在的单...

示例公式： =countif(a1:c100,*&"ABCD"&*) 示例公式统计A1:C100区域内有字符串ABCD的个数。其中：OUNTIF函数统计单元格区域中满足给定条件的单元格的个数。语法结构为COUNTIF(rage,criteria)，参数range是需要统计符合条件单元格数目的单元格区...

Sub 宏1()For i = 2 To 10 If Not Cells(i, 11).Find("职称") Is Nothing And Not Cells(i, 12).Find("工程师") Is Nothing Then Cells(i, 13) = "中级" End IfNextEnd Sub

程序运行正常,一切OK VBA每次只能查找一个RNG啊 ,你不循环咋办,第一循环后内存中RNG已经得到了一个ADDDRESS 不重设RANGE那就是死循环 没有Set rng = Range("h2:h36").FindNext(rng),你的LOOP后面的条件就是没用的

用application.worksheetsfunction.方式看看，与EXCEL表格中的find用法一样。

Sub fdSpace() Dim UR As Range, Rng As Range, sA As String Set UR = Worksheets(1).UsedRange Set Rng = UR.Find(" ", , xlValues, xlPart) sA = Rng.Address Do Set Rng = UR.FindNext(Rng) Debug.Print Rng.Address Loop Until Rng.Address...

你代码的意思是：在字符串 “x” 中查找 A1单元格的字符。 当没有的时候就出错，而这个错误是不能用 ISerror 来捕捉的。 既然你用了 VBA，就尽量不要用工作表函数。 可以用 instr 函数。 if instr([a1],"x")>0 then msgbox "找到" else msgbox "没...

用match这类函数试试，FIND和SEARCH应该达不到你的要求，因为只要包含都可以查找出来。建议你截个图来看看

大哥！ 你定义的变量名是 Rng Find 方法中查找的是 Rnd 介个肿么找得到撒！

Sub Myfind() Dim iRange As Range, iFined As Range Dim iStr, iAddress As String, N As Integer '以上是定义使用到的变量 Set iRange = Range("A2:A100") '给irange变量赋值为A2:A100区域 iStr = Range("A1").Value '给要查找的字符串变量赋...