Ekşi Duyuru

internetten bir makro buldum. çoklu düşey ara ile tek bir hücreye bütün sonuçları yazıyor

abcdef

gibi. fakat benim isteğim

a-b-c-d-e-f

formül aşağıdaki gibi nasıl bir ek yapmam lazım

--------

Function ÇOKLUDÜŞEYARA(aranan As String, alan As Range, sutun As Integer) As String
If aranan = "" Or sutun = 0 Then GoTo cik
veri = alan.Value2
For i = 1 To UBound(veri)
If veri(i, 1) Like "*" & aranan & "*" Then
ÇOKLUDÜŞEYARA = ÇOKLUDÜŞEYARA & veri(i, 2) & vbLf
End If
Next i
Exit Function
cik: ÇOKLUDÜŞEYARA = ""
End Function

---------