vba查找单元格位置 vba find 精确查找

查找用Range对象的Find方法,返回Rang对象,然后再取Range对象的Row属性或Column属性返回行或列.Set C=Range("A1:E10").Find("abc"),If Not C Is Nothing .

下面的程序可以满足功能,如有需要把查找源和目标改一下就行了option explicitsub text() dim rngfind as range dim rngdata as range dim icol as integer dim irow as long .

初步判断 If Sheet1.Cells(i, j) = ＂value＂ And Sheet1.Cells(i, j - 1) = ＂tag＂ Then这一句中,后一个cells参数j-1=0,就错了

看了如下代码,你就掌握了,呵呵.Sub Macro2() Dim MyCell As Range '定义单元格对像变量 Set MyCell = ActiveCell '对对像变量进行赋值 MyCell.Offset(3, 3).Select '光标移开 MsgBox ＂光标已移开,点【确定】后将移回＂, vbInformation + vbOKOnly MyCell.Select '光标回到最初的单元格上 Set MyCell = Nothing '注销对像变量 End Sub 有疑问,请Hi我或给我发百度消息 GoodLuck!

选中全部区域,执行查找,输入5,点“全部查找”即可全部找到5的单元格,在列出的查找结果中,滚动条移到最后,按住SHIFT键,点列表框最后一条记录即可.至于查找大于等于5的,我所能想到的就是使用条件格式(但这个只能显示,不能选中)

可以用CELLS集合中进行设置,例如CELLS(2,2).select.CELLS中的连个参数分别是行,列,可以根据目前的一个单元格位置进行移动,例如目前的单元格位置变量为C.

按你的要求,应该不用查找的,第一步,你用分列(采用固定宽度)将序列号与实际分开,第二步,采用自定义格式,将序列号显示成你想要的格式

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 ＂查找值在:＂&(Chr(64 + Rng.Column) & Rng.Row) Rng.Select n = n + 1 End If Loop End Sub

Sub TestFind() MsgBox Sheet1.Range(＂1:＂ & Sheet1.Rows.Count).Find(＂测试字符串＂).Address End Sub 如果是多个,并且不要提示,让它变成行数的变量 .

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