xqzz.net
当前位置:首页 >> ExCEl vBA FinD函数 >>

ExCEl vBA FinD函数

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 ...

vba没有find函数,有instr函数

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

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

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

只是一列数据的话,直接用筛选的方法,筛选包含"kh"再复制就可以

Private Sub CommandButton1_Click() Dim c As Range With Sheet2.Columns("A:A") Set c = .Find(100, LookIn:=xlValues) Sheets("sheet1").Range("C1") = Sheets("sheet2").Cells(c.Row, 2) End With End Sub 你的代码中cells(c.row,2)没有指定...

在excel VBA中row是一个对象的属性,并不是VBA函数,比如range("a1").row,得出的结果为1,是指单元格a1这个对象的所在的行是第1行。 rows是VBA中的对象,比如rows("1:3")是指1至3行所有的单元格对象,不过这种对象也被成为对象集合。 学习VBA一...

参数错了。 这个函数的参数只能是搜索范围内的单个单元格,而你的c(1)在前面得到的是查找到第一个单元格的地址,是一个字符串变量。参数应该改为: After:=Range(c(1))

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