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

vBA 查找字符串所在行

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

很简单的呀,哪有这么复杂,直接用InStrRev函数即可 MsgBox InStrRev("abc\bcd\cde\efg", "\") 就这样就行了,字符串可用变量来代替。 instrrev函数就是从最末一个开始找的。 instrrev(字符串,要找的字符) 返回的就是你要的位置

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

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

sub test()myrow=Range("A65536").End(xlUp).Rowfor i=myrow to 1 step -1 if range("A" & myrow )="X" then Range("A" & i & ":A" & myrow).ClearContents end ifnextend sub

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

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

set rng=cells.find("日期")'查找含有“日期”的单元格 if not rng is nothing then‘如果找到 Ro=rng.row’行号 Co=rng.column‘列号 end if

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

网站地图

All rights reserved Powered by www.kbqf.net

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