SAtırları tek bir sutuna çevirme

[sldrkyurdal]

Merhaba,
Bir konuda desteğinize ihtiyaç duyuyorum.
Örnek olarak excelde A1: a100 arasında rakamlar var
Bu rakamları tek satıra b1 e yazmasını istiyorum
Teşekkürler

 

[askm]

Sub askm()
Application.ScreenUpdating = False
Dim k As Range
For Each k In Range("A1:A100")
    kelime = kelime & " " & k 'Arada boşluk olmasını istemiyorsanız. " " &  kaldırın
Next
[b1] = kelime
Application.ScreenUpdating = True
End Sub

 

[sldrkyurdal]

Sub askm()
Application.ScreenUpdating = False
Dim k As Range
For Each k In Range("A1:A100")
    kelime = kelime & " " & k 'Arada boşluk olmasını istemiyorsanız. " " &  kaldırın
Next
[b1] = kelime
Application.ScreenUpdating = True
End Sub

Teşekkürler

 

[askm]

Rica ederim.Kolay gelsin.