Join
metodunu kullanarak dizideki elemanları tek seferde ve istenilen ayırma karakteriyle birleştireceğiz.
Option Explicit
Sub DiziElemanlariniBirlestir()
Dim dizi As Variant
Dim sonuc As String
dizi = Array("Ali", "Veli", "Ahmet", "Mehmet")
sonuc = Join(dizi, " - ")
MsgBox sonuc
End Sub
Eğer ayırma karakteri kullanmak istemiyorsanız ikinci parametreyi “” şeklinde girerek boş bırakabilirsiniz.