www.kbqf.net > vBA 查找字符串所在行

vBA 查找字符串所在行

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 如果包含特...

Private Sub CommandButton1_Click() Dim p, r, s, t s= "石膏板造型顶" With Selection.Find .ClearFormatting .MatchWholeWord = True .MatchCase = False t = .Execute(FindText:=s) End With p= Selection.Information(wdActiveEndPageNumbe...

确认了一下,Find不能进行精确匹配。 如果需要使用Find进行精确查找的话,请参考下面网页的SECTION 5中的代码: http://www.siddharthrout.com/2011/07/14/find-and-findnext-in-excel-vba/ 或者使用Like语句。

B8=ADDRESS(MATCH("天津",$A$1:$A$7,0),MATCH("四月",$A$1:$P$1,0)) 就会在B8返回:E4 B8=OFFSET(MATCH(("天津",A:A,0)-1,MATCH(("四月",1:1,0)-1)) 就会再B8返回15.42

Sub 查找()For Each rng In Range("a1:d3") If rng = 7 Then a = rng.Row b = rng.Column End IfNextMsgBox "行号为" & a & "-" & "列号为" & bEnd Sub

给你个列子 在 C列找 包含 “宁波” 的单元格 ,如果 是完全匹配 XLPART 改成XLWHOLE Sub 查找() Set findcell = Columns("c").Find("宁波", LookAt:=xlPart) If Not findcell Is Nothing Then MsgBox findcell.Row Else MsgBox "没找到符合条件的...

比如在A列查找第一个“X”所在的行号,代码如下: range("A:A").find("x",,,1).row

Sub TestFind() MsgBox Sheet1.Range("1:" & Sheet1.Rows.Count).Find("测试字符串").Address End Sub

若字符串在查找区域是唯一的,可简单用函数解决。 示例:要求在A1:C10区域内,查找存在字符串“str”的单元格,返回该单元格地址。公式如下: =ADDRESS(SUMPRODUCT(ISNUMBER(FIND("str",A1:C10))*ROW(A1:C10)),SUMPRODUCT(ISNUMBER(FIND("str",A1...

Sub abc()Dim theRange As RangeOn Error GoTo errhandlerngstr = InputBox("请输入两个A1形式单元格,以空格分隔")If InStr(rngstr, " ") = 0 Then MsgBox "请用空格分隔两个单元格。" Exit SubEnd Ifrng1 = Left(rngstr, InStr(rngstr, " ") -...

网站地图

All rights reserved Powered by www.kbqf.net

copyright ©right 2010-2021。
www.kbqf.net内容来自网络,如有侵犯请联系客服。zhit325@qq.com