Var olan harflerin yanına yeni değerler eklemek

[SizinWeb]

Elimde 2 adet Dosya var bunlardan Liste1 de Bulunan harflerin yanında Liste2 deki Harfleri toplu olarak eklemek istiyorum Sonuç olarak görünecek şekilde olması gerekiyor

Lİste 1
a
b
c
d
e
f
-----------
Liste2
ak
ek
ok
ik
uk
ök
----------
Sonuç
Örnek
aak
bek
cok
dik
euk
fök

 

[Emir Hüseyin Çoban]

. . .

İşlem sonucunu gösteren bir örnek dosya ekleyiniz.

. . .

 

[SizinWeb]

halledildi teşekkür ederim hocam teşekkür ederim =A1&"-"&B1 Kodunu kullanarak a ve b tablosunu birleştirdim.

 

[SizinWeb]

Şimdi ise Ac, Aç, Ad, Ad, Af, Ag, Ağ, Ah, Ak, Al, Am, Am, An, Ar, As, Aş, At, At, Au, Av, Ay, Az,
Tek satırda bulunan bu harfleri Alt alta farklı satırlara dizmem gerek

 

[Emir Hüseyin Çoban]

Şimdi ise Ac, Aç, Ad, Ad, Af, Ag, Ağ, Ah, Ak, Al, Am, Am, An, Ar, As, Aş, At, At, Au, Av, Ay, Az,
Tek satırda bulunan bu harfleri Alt alta farklı satırlara dizmem gerek

. . .

Sub KOD()
    
    metin = Range("B1")
    aranan = ","
    b = Split(metin, aranan)
    
    If UBound(b) = 0 Then Exit Sub
    For i = 0 To UBound(b)
        Cells(i + 1, "A") = Trim(Split(metin, aranan)(i))
    Next i
    
End Sub

. . .

 

[SizinWeb]

teşekkürler hocam sagolun

 

[Erdem Akdemir]

Merhaba,

Formül ile alternatif,

=KIRP(PARÇAAL(YERİNEKOY(","&$B$1;",";YİNELE(" ";255));SATIRSAY($D$1:D1)*255;255))

 

[bzace]

Merhabalar,
Dizi formülü ile alternatif,
Verinizi A1 hücresine girerek deneyiniz.

=KIRP(PARÇAAL(YERİNEKOY(A1;",";
  YİNELE(" ";UZUNLUK(A1)));UZUNLUK(A1)*
    (SATIR(İNDİS(A:A;1):İNDİS(A:A;1+
  UZUNLUK(A1)-UZUNLUK(YERİNEKOY(A1;",";))))-1)+1;
UZUNLUK(A1)))
[COLOR="Blue"]Formül dizi formülüdür.CTRL+SHIFT+ENTER ile tamamlayınız.[/COLOR]

Not: Formülü tek hücreye girip aşağı doğru çekerek yaparsanız yanlış sonuç verecektir.
Formülü A2:A80 aralığını seçip formül çubuğu giriş yapınız.

Saygılar,
Kafe