• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

SAtırları tek bir sutuna çevirme

Katılım
18 Ağustos 2017
Mesajlar
119
Excel Vers. ve Dili
excel.2013
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
 
Kod:
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
 
Kod:
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
 
Rica ederim.Kolay gelsin.
 
Geri
Üst