excle vba，如何查找一个已知值的行号和列号？

1、首先，打开一个表，例如，数据的行号和列号为周芷若的符号条来件14。  

2、选择一个空白单元格，然后选择公式中的插源入函数。 

3、然后弹出插入功能百窗口，在此窗口中搜索所需的功能。  

4、在搜索功能中输入匹配功能，然后在搜索结果中选择该功能。  

5、选择后，在功能参数度中设置所需参数，在第知一个参数中输入查询值，在第二个参数中输入数据区域，在第三个参数中输入0。  

6、输入完所有参数后道，点击【确定】，系统将自动显示合格数据的行号和列号。

set rng=cells.find("日期百")'查找含有度“日期”的单元问格
if not rng is nothing then‘如果答找到内
Ro=rng.row’行号容
Co=rng.column‘列号
end if
'单元格触zhidao发事件
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count = 1 Then
MsgBox "当前单专元格的行号是属:" & Target.Row
End If
End Sub
用命令按钮的宏:
Sub YY()
MsgBox "当前单元格的行号:" & ActiveCell.Row
End Sub

Sub lxx()
Dim H As Integer '总行百数
H = 1000 '假定总行数为度1000，根据需要改
Dim I As Integer '定义行版变量
Dim J

For I = 1 To H
If Worksheets("sheet1").Cells(I, 2).Value = "10月份权" Then
Worksheets("sheet1").Cells(1, 1).Value = I
Worksheets("sheet1").Cells(2, 1).Value = I
J = I
GoTo Next1:
End If
Next
Next1:
For J = 1 To H
If Worksheets("sheet1").Cells(J, 2).Value = "10月份" Then
Worksheets("sheet1").Cells(2, 1).Value = J
End If
Next

End Sub