已知内容返回单元格地址

yh_n · 发表于 2010-5-6 19:34

如何用VB實現，已知數值，返回行列號？
下記是返回地址，但是不知道如何轉換為行列號：
Sub find_address()
Dim rng As Range
Dim val As String
Set rng = Range("A1:A10")
val = InputBox("Please enter what you want find:")
Set c = rng.Find(val, LookIn:=xlValues)
If Not c Is Nothing Then
MsgBox val & " was found in " & c.Address
End If
End Sub

zhazha · 发表于 2010-8-31 14:16

回楼上的
c.row
c.column

shirf · 发表于 2010-9-7 22:51

谢谢楼主，已拿来用了！

kszcs · 发表于 2010-9-7 23:05

收藏,留用学习

党的政策好 · 发表于 2011-4-24 01:06

又是一大把大把的数据，头晕·······数组公式还没搞懂。以后学习

wdtdgold · 发表于 2011-5-20 17:08

谢谢。我一直想做一个这样的东西~呵呵

lee123 · 发表于 2011-7-9 13:13

很入不用，都忘了。
论坛还是很火啊，真好。

490869367 · 发表于 2011-11-13 11:31

谢谢版主，学习了

nk102capa · 发表于 2012-10-16 10:46

多谢大侠指教

piaohuandun · 发表于 2013-1-20 18:58

本帖最后由 piaohuandun 于 2013-1-20 19:00 编辑

chenjun 发表于 2004-8-10 23:45
没这么严重！[em01]
本来这样的用途用公式是不会简单的，一般就是将符合条件的单元格的行号*1000+列号，就 ...

求大侠根据这个数据源，写出模版压缩！！！非常感谢！！
另外，求楼主解释下：IF（ROW(1:1)>COUNTIF($B$1:$I$18,"工作"),"", ……）中，ROW(1:1)>COUNTIF($B$1:$I$18,"工作"),"", 的含义！！！！小兵求进步。谢谢。

		自动登录	找回密码
密码			免费注册