新手我來誤人子弟~~
看起來應該要自定義函數+OFFSET~
自定義函數 "蝦米"
Public Function 蝦米(範圍, 對照, 資料)
Application.Volatile
Dim I As Variant, S As Integer
For Each I In 對照
S = S + 1
If I.Value = 資料 Then
TESTS = TESTS & 範圍(S) & ","
End If
Next
蝦米 = Left(TESTS, Len(TESTS) - 1)
End Function
先感謝大大的指點,小弟之後又再仔細查看與比對大大所打出的指令
發現小弟再紅色字體中"掛載"前少了一個空格,加上後,再對照大大所教的指令後,就可以正常顯示了!!
感謝大大的指導!!!
Public Function掛載(範圍, 對照, 資料)
Application.Volatile
Dim I As Variant, S As Integer
For Each I In 對照
S = S + 1
If I.Value = 資料 Then
TESTS = TESTS & 範圍(S) & ","
End If
Next
掛載 = Left(TESTS, Len(TESTS) - 1)
End Function