乔山办公网我们一直在努力
您的位置:乔山办公网 > excel表格制作 > 在<em>EXCEL</em>中 如何用VBA查找某特定单元格并返回该单元格的...-excel

在<em>EXCEL</em>中 如何用VBA查找某特定单元格并返回该单元格的...-excel

作者:乔山办公网日期:

返回目录:excel表格制作


一、这个可以用MATCH函数来做到。

假设要在A列中查找第一个单元格内容为“张三”的所在行号,则可以在A列以外的任一单元格写入公式

=MATCH("张三",A:A,0)

 

二、MATCH函数的定义:

返回在指定方式下与指定数值匹配的数组中元素的相应位置。如果需要找出匹配元素的位置而不是匹配元素本身,则应该使用 MATCH 函数而不是 LOOKUP 函数。

语法

MATCH(lookup_value,lookup_array,match_type)

 

Lookup_value    为需要在数据表中查找的数值。

 

  • Lookup_value 为需要在 Look_array 中查找的数值。例如e5a48de588b67a64336,如果要在电话簿中查找某人的电话号码,则应该将姓名作为查找值,但实际上需要的是电话号码。

  • Lookup_value 可以为数值(数字、文本或逻辑值)或对数字、文本或逻辑值的单元格引用。

 

Lookup_array    可能包含所要查找的数值的连续单元格区域。Lookup_array 应为数组或数组引用。

 

Match_type    为数字 -1、0 或 1。Match-type 指明 Microsoft Excel 如何在lookup_array 中查找 lookup_value。

 

  • 如果 match_type 为 1,函数 MATCH 查找小于或等于 lookup_value 的最大数值。Lookup_array 必须按升序排列:...、-2、-1、0、1、2、...、A-Z、FALSE、TRUE。

  • 如果 match_type 为 0,函数 MATCH 查找等于 lookup_value 的第一个数值。Lookup_array 可以按任何顺序排列。

  • 如果 match_type 为 -1,函数 MATCH 查找大于或等于 lookup_value 的最小数值。Lookup_array 必须按降序排列:TRUE、FALSE、Z-A、...、2、1、0、-1、-2、...,等等。

  • 如果省略 match_type,则假设为 1。

 

说明

  • 函数 MATCH 返回 lookup_array 中目标值的位置,而不是数值本身。例如,MATCH("b",{"a","b","c"},0) 返回 2,即“b”在数组 {"a","b","c"} 中的相应位置。

  • 查找文本值时,函数 MATCH 不区分大小写字母。

  • 如果函数 MATCH 查找不成功,则返回错误值 #N/A。

  • 如果 match_type 为 0 且 lookup_value 为文本,lookup_value 可以包含通配符、星号 (*) 和问号 (?)。星号可以匹配任何字符序列;问号可以匹配单个字符。



dim flag as boolean
flag=false
for i=1 to usedrange.rows.count
for j=1 to usedrange.columns.count
if cells(i,j)="Weight/Mt Contents" then
Rows(i+1).Insert Shift:=xlDown
Rows("1:"& i).Delete Shift:=xlUp
flag=true
exit for
end if
next j
if flag then exit for
next i

1、将单元格所选单元格的行号和列号,分别用VBA显示在下面的两个单元格中,

2、按下Alt+F11,打开VBA编辑界面,选择当前工作表编写代码,

3、下面代码是得到当前单元格的行号并放到当前单元格下一个单元格中:

4、下面代码是得到当前单元格的列号并放到当前单元格下面第二个单元格中:

5、代码编写完成,点击运行子过程按钮(或按下F5),

6、最后返回Excel中,就可以看到得到了当前单元格的行号和列号,



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

相关阅读

关键词不能为空

ppt怎么做_excel表格制作_office365_word文档_365办公网