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

vBA查找单元格位置

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

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 "查找值在:"...

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

举个例子吧,如果想在A1:B5范围内查找15,返回这个单元格地址,可以输入公式 =ADDRESS(SUMPRODUCT((A1:B5=15)*ROW(1:5)),SUMPRODUCT((A1:B5=15)*COLUMN(A:B)),4) 就行了。

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

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

Private Sub Workbook_Open() Sheets(2).Select Range("B100").Select End Sub 用VBA太简单不过的了,上面代码的意思是:1.事件的开始,一打开Excel就执行2.选择第二个工作表3.选择当前工作表的B100单元格4.结束效果就是,一打开Excel就自动选中第二...

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

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

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