knrt.net
当前位置:首页 >> ExCEl vBA 要是用FinD函数查找内容,找不到怎么办? >>

ExCEl vBA 要是用FinD函数查找内容,找不到怎么办?

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

vba没有find函数,有instr函数

给出网页地址,我来试一下

VBA中调研excel函数,方法: 在excel前加:Application.WorksheetFunction. 比如: Application.WorksheetFunction.FIND("查找内容",A:A)

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

明显的逻辑问题埃 如果找到了,则对该单元格做条件判断,如果不满足条件则查找下一个含有abc的单元格。 如果找到了,则对该单元格做条件判断,做完条件判断也需要再查找下一个,跟你的这个条件是没有关系的。。 所以应该是: Do If criterior_Ch...

给你多个查询替换的例子看看,有用的话,给加分啊 '多字符替换vba程序 Public Sub Multi_replacement() '多个字符替换为一个 Dim IP As Variant Dim OP As String Dim TP As String IP = Split(Application.InputBox("替换的字符,多个用|隔开"),...

在Excel VBA中Find函数的基本用法。Find函数就是Excel表格中的查找功能,可以通过录制宏的方法来获得Find的代码。 Sub Macro1() Cells.Find(What:="A", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _ xlPart, SearchOrder:=xlByRows, Sear...

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

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

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