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

vBA查找单元格位置

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:B5范围内查找15,返回这个单元格地址,可以输入公式 =ADDRESS(SUMPRODUCT((A1:B5=15)*ROW(1:5)),SUMPRODUCT((A1:B5=15)*COLUMN(A:B)),4) 就行了。

如下图所示,找出第一个小于60的单元格所在的行。 在B1单元格输入“=MIN(IF(O:O

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

假如在ABC三列查找“张三”: Set Rng = Columns("A:C").Find("张三")'查找 If Not Rng Is Nothing Then Rng.Select'如果找到就选中 凡是这三列单元格里第一个有“张三”两字的如“张三娃”等的单元格将被找到并选中,如果只能查找“张三”,前一句改一...

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

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

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

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

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