[算表] 橫向傳回位址vba

[ptguitar (佩蒂吉他)]

軟體: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://www.ptt.cc/bbs/Office/M.1496479431.A.0F8.html
→ Linkey: mm = ss.Column
→ Linkey: match_type 是 0，會找第一個完全等於 lookup_value
→ Linkey: msgbox mm 放在 if 裡面比較恰當
→ Linkey: https://goo.gl/wSeHHy
→ ptguitar: 感謝大大的解說 我了解了~