knrt.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中用函数查找字符串,那么既可以用VBA内置函数Instr,也可以用Excel表函数Find() Instr("我们是中国人",“中国") WorksheetFunction.Find("中国","我们是中国人") 都将返回4 不同的是,在找不到时,Instr返回0,而Find返...

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

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

在模块里定义: function aa(a) aa=a end function 窗体里调用: x=aa(1) msgbox x

Sub Main() Dim I As Long For I = 1 To 1000 '行数,可以根据实际情况进行修改 If InStr(Range("A" & I), "invalidstatus") > 0 Then'假设数据都在A列中,从第一行开始 Range("A" & I).interior.Color = vbRed End If Next End Sub 如果包含特...

Sub chushih() Set sht = ActiveSheet Do While sht.Range("f6") 0 Or sht.Range("f7") 0 Or sht.Range("f8") 0 Application.Calculation = xlCalculationAutomatic sht.Range("b6:b8").Calculate Loop Application.Calculation = xlCalculation...

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

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

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