vba中find为什么无法查找函数返回的值

Function dm(x As Range)dm = IIf(InStr(x, "足球"), "Y", "N")End Function

查找用Range对象的Find方法，返回Rang对象，然后再取Range对象的Row属性或Column属性返回行或列。Set C=Range("A1:E10").Find("abc")，If Not C Is Nothing then，R=C.Row '返回Cl=C.Column '返回列。在其桌面应用程序中执行通用的自动化(OLE)任务的编程语言。主要能用来扩展Windows的应用程序...

VBA引用工作薄函数,不会返回错误值的.你可以用range的find方法来做 把Dim b As String 改成Dim b As Range 下面是代码被修改的地方 '---分割线--- Set b = Yrange1.Find(yrange, lookat:=xlWhole)If b Is Nothing Then Range("W1") = "注意！" & yrange.Address(0, 0) & " 单元...

公式也可以的。可以用VLOOKUP使用通配符。通配符用在公式里。如果要用VBA，对应的有字符串长度的话可以直接用left来结局。没有必要用通配符。不特定的话，可以使用VBA函数instr来查找位置，如果能正常返回非零值则说明存在。instr的功能与工作表函数find类似，但有区别。

代码放到表2中，Sub 查找()Dim Rng As Range Set Rng = Worksheets("sheet1").Columns("A").Find("6135587583", LOOKAT:=xlWhole)If Rng Is Nothing Then MsgBox "没有找到该项目"Else Range("D7").Value = Rng.Offset(0, 3).Value End If End Sub ...

sub a() dim rng as range,rngSearch as range dim vl as string set rng=range("A1:B100") vl="AAA" set rngSearch=rng.find(what:=vl) if not rngSearch is nothing then msgbox vl.columnend sub

第一个符合条件的大写 "B" 出现在第4位。利用Instr函数可以方便地判断原字符串中是否包含特定字符。如果返回值为0，则表示不包含；返回值为非0，则表示包含。本文还提到了与Instr函数类似的两个工作表函数：application.find和application.search。这些函数主要用于在工作表中查找单元格或在字符串中查找...

c = Sheets("采购报价").Range("b3:b" & b).Find(Sheets("系统报价").Range("c" & i)).Row '出错后返回这里没法读取? GoTo 1312: Sheets("系统报价").Range("C" & i).EntireRow.Delete goto 100 13: Next iEnd Sub 展开  我来答 分享 微信扫一扫 新浪微博 QQ空间 举报 浏览899 次 ...

在 Excel 里，我们可以使用 `MATCH` 函数与 `INDEX` 函数来找出一个值在哪个位置。如果要找文本"小红"在 A 到 D 列的哪一列，可以用以下方法：1. 在一个空白单元格输入公式 `=MATCH("小红",A1:D1, 0)` 然后敲回车键。2. 这个公式会返回“小红”在 A1:D1 范围内的位置。在此，`MATCH...

查找字符在单元格内位置，主要是使用函数find与search：find函数区分大小写，search不区分大小写。也可以使用其他的数组公式，如=MAX((MID(A2,ROW($1:$9),2)="mi")*ROW($1:$9))：