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

vBA查找单元格位置

若字符串在查找区域是唯一的,可简单用函数解决。 示例:要求在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 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 "查找值在:"...

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

首先确定查找范围,其次要注明是精确查找,还是模糊查找 我以所有单元格内精确查找为例。 sub 查找() if not usedrange.find("AB123",lookat:=xlwhole) is nothing then x=usedrange.find("AB123",lookat:=xlwhole),row end if end sub

1、可以用InStr(查找的单元格或文本,查找的内容)这个来查找,用“.row”来获取行号 假设你要查找A列里包含“中国”内容的单元格可以这么写 For i = 1 To Cells(65536, 1).End(xlUp).Row '获取A列最后一个含有数值单元格的位置,并设定循环数 If InSt...

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

获得选中单元格行号为 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

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