knrt.net
当前位置:首页 >> ExCEl vBA 里有FinD这个函数吗? >>

ExCEl vBA 里有FinD这个函数吗?

vba没有find函数,有instr函数

程序运行正常,一切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, Sear...

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

看了的代码,先说个无关紧要的建议,最好不要使用GOTO 解决你的问题,需要使用错误捕获语句,下面的例子代码: dim r as rangeon error resume next '不报错set r=columns(i).find("★",,,xlwhole)on error goto 0'恢复报错if r is nothing then ...

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 '给要查找的字符串变量赋...

提示的是 find 函数没有定义! 因为find 函数 是 cells 类下的成员函数 ActiveWorkbook.Worksheets(1).Cells(10,11)= ActiveWorkbook.Worksheets(1).Cells.Find("足球", ActiveWorkbook.Worksheets(1).Cells(3, 6).Value) 这样就可以了

建议你查EXCEL帮助。 ----------------------------- FIND 用于查找其他文本字符串 (within_text) 内的文本字符串 (find_text),并从 within_text 的首字符开始返回 find_text 的起始位置编号。也可使用 SEARCH 查...

可以查到啊? 可能你的用法错了! Public Function MDD(DH As String) MDD = Sheet1.Cells(Sheet1.Range("a:a").Find(what:=DH).Row, 6) End Function Sub A() MsgBox MDD("PP") End Sub

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

网站首页 | 网站地图
All rights reserved Powered by www.knrt.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com