作者ptguitar (佩蒂吉他)
看板Office
标题[算表] 横向传回位址vba
时间Sat Jun 3 16:43:49 2017
软体:excel
版本: 2007以上
如果我在A1:P1 有A这个字元
我想传回每个A位在什麽位址
Sub test()
Dim ss As Object
For Each ss In Range("A1:P1")
If ss.Text = "a" Then
mm = Application.Match(ss.Text, Range("a1:p1"), 0)
End If
MsgBox mm
Next ss
End Sub
都只会传回1 不知道vba该改哪边?
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 60.250.67.77
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1496479431.A.0F8.html
1F:→ Linkey: mm = ss.Column 06/03 17:06
2F:→ Linkey: match_type 是 0,会找第一个完全等於 lookup_value 06/03 17:07
3F:→ Linkey: msgbox mm 放在 if 里面比较恰当 06/03 17:08
5F:→ ptguitar: 感谢大大的解说 我了解了~ 06/03 22:55