lzth.net
当前位置:首页 >> ExCEl中怎么使用vBA代码查找字符串并返回该单元格的位置? >>

ExCEl中怎么使用vBA代码查找字符串并返回该单元格的位置?

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

Sub TestFind() MsgBox Sheet1.Range("1:" & Sheet1.Rows.Count).Find("测试字符串").Address End Sub 如果是多个,并且不要提示,让它变成行数的变量 Microsoft Excel是微软公司的办公软件Microsoft office的组件之一,是由Microsoft

若字符串在查找区域是唯一的,可简单用函数解决.示例:要求在A1:C10区域内,查找存在字符串“str”的单元格,返回该单元格地址.公式如下:=ADDRESS(SUMPRODUCT(ISNUMBER(FIND("str",A1:C10))*ROW(A1:C10)),SUMPRODUCT(ISNUMBER(FIND("str",A1:C10))*COLUMN(A1:C10))) 公式说明:SUMPRODUCT函数配合FIND函数和ROW函数得到目标单元格的行号,SUMPRODUCT函数配合FIND函数和COLUMN函数得到目标单元格的列号,再使用ADDRESS函数得到地址.

<p> 假设数据区域为A1:C3</p> <p> 返回行号</p> <p>=SUMPRODUCT((A1:C3="abc")*ROW(A1:C3))</p><p> 返回列号</p> <p>=SUMPRODUCT((A1:C3="abc")*COLUMN(A1:C3))</p>

dim flag as boolean flag=false for i=1 to usedrange.rows.count for j=1 to usedrange.columns.count if cells(i,j)="Weight/Mt Contents" then Rows(i+1).Insert Shift:=xlDown Rows("1:"& i).Delete Shift:=xlUp flag=true exit for end if next j if flag then exit for next i

插入辅助列如N列,替换“-”,公式N1=SUBSTITUTE(M1,"-","")下拉再在O 列查找排序,公式为O1=IF(MAX(NOT(ISERROR(FIND(J1,$N$1:$N$20)))*ROW($N$1:$N$20))=0,"无匹配",INDEX($M$1:$M$20,MAX(NOT(ISERROR(FIND(J1,$N$1:$N$20)))*ROW($N$1:$N$20))))并按ctrl+shift+enter,出现{},下拉

Sub Macro1() On Error GoTo 100 Dim aa As String aa = InputBox("输入需要查找的内容") Cells.Find(What:=aa, After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False,

查找所有应用区域中包含“hello”字符串的 sub test1() dim v as string dim r as range v = "hello" for each r in activesheet.usedrange if instr(1, r, v) 0 then msgbox r.address end if next end sub

查找用Range对象的Find方法,返回Rang对象,然后再取Range对象的Row属性或Column属性返回行或列.Set C=Range("A1:E10").Find("abc"),If Not C Is Nothing then,R=C.Row '返回Cl=C.Column '返回列.在其桌面应用程序中执行通用

方法如下: 1.查找A1:D4中所有含2的单元格,并返回单元格地址: 2.Alt+F11,输入代码如下: 3.F5执行代码,结果如下:

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