blsn.net
当前位置:首页 >> vBA查找单元格位置 >>

vBA查找单元格位置

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

获得选中单元格行号为 Selection.row 获得选中单元格的列数为 Selecition.column 相关知识延伸: 如果选中的是区域,获得第一个单元格行号为 Selection(1).row 列为Selection(1).column 最后一个单元格行号为 Selection(Selection.count).row 列...

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

参考思路如下: Function rc_test(a) On Error Resume Next rc_test = a.Row & "/" & a.Column End Function

Sub Find_Fun() Dim What As String Dim n As Integer What = InputBox("请输入查找内容", "查找功能") n = 1 Do While n = 1 Set Rng = ActiveSheet.UsedRange.Find(What) If Rng Is Nothing Then MsgBox ("没有该值") Else MsgBox "查找值在:"...

位置什么意思?下面代码为显示行列号—— Sub m() For Each Rng In Range("A1:N6") If Rng "" Then MsgBox "非空单元格行号为" & Rng.Row & " 列号为" & Rng.Column End If Next End Sub

使用Match函数来处理。 Excel版本参考:2010 举例:5所在的行。 1、在D2中输入公式:=MATCH(C2,A:A,0),回车; 2、改变A列数据,查看5的位置(多次测试,结果正确)。

sub a() dim rng as range dim str as string str="aaa" set rng=cells.find(what:=str,after:=selection) if rng is nothing then msgbox "没有" exit sub else rng.select end ifend sub

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