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

vBA查找单元格位置

查找用Range对象的Find方法,返回Rang对象,然后再取Range对象的Row属性或Column属性返回行或列。要注意的是Find方法可能会返回Nothing,要先检查一下,否则后出错。 例如: Set C=Range("A1:E10").Find("abc") If Not C Is Nothing then R=C.Row...

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

查找字符在单元格内位置,主要是使用函数find与search: find函数区分大小写,search不区分大小写。 也可以使用其他的数组公式,如=MAX((MID(A2,ROW($1:$9),2)="mi")*ROW($1:$9)):

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

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

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

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

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

答: f2 = Sheets("Sheet10").Range("B:B").Find(what:=Sheets("Sheet4").Cells(3, "C"), lookat:=xlPart).Row

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

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