查找某值的单元格所在的地址

来源:百度文库 编辑:神马文学网 时间:2024/04/29 12:38:50
查找某值的单元格所在的地址2010-04-02 16:30

Sub 查找某值的单元格所在的地址()
K = InputBox("输入你查找的值", "提醒", "ABC")
Set K1 = Cells.Find(K)
If Not K1 Is Nothing Then
   K1.Select
MsgBox "《" & K & "》的单元格的地址是:" & Chr(64 + Selection.Column) & Selection.Row
End If
End Sub

***********************************

函数

=ADDRESS(SMALL(IF($A$1:$D$24="abc",ROW($A$1:$D$24),100),1),SMALL(IF($A$1:$D$24="abc",COLUMN($A$1:$D$24),100),1),4)