kelime listesi

[namerup]

uzunca bi cümlenin içindeki tüm kelimeleri aynı sütunda listelemek istiyorum.. bu ümkünmüdür acaba...

 

[hurkanpisirici]

merhaba istediğiniz bunun gibi birşeymi?

 

[Orion1]

Kod ile .

Sub kelime_ayir()
Dim dizi() As String
Range("A2:A65536").ClearContents
dizi = Split(Range("A1").Value, " ")
Range("A2").Resize(UBound(dizi) + 1, 1) = Application.Transpose(dizi)
End Sub