İki Satırı Üst Üste Yazma

[dertbende]

Binlerce alt alta satırlar var iki adet ayrı ayrı örnek

ALİ1200 ÖĞRENCİ
ALİ1201 ÖĞRENCİ
ALİ1401 ÖĞRENCİ
ALİ1402 ÖĞRETMEN


yukardaki örnek gibi bunları bu hale getirmek istiyorum.

ÖĞRENCİ
ALİ1201
ÖĞRENCİ
ALİ1201
ÖERENCİ
ALİ1401
ÖĞRETMEN
ALİ1402



EĞER komutuyla yapılabilir sanırım ama pek bilmediğim için yardımınıza ihtiyacım var şimdiden teşekkürler.

 

[Mahir64]

Merhaba,

Formülü uygulayacağınız hücre özelliklerinden "Metni Kaydır" seçeneğini seçiniz.

=A1&DAMGA(10)&B1

 

[apocalyt]

altenatif olarak...verilerinizin A sütünunda olduğu varsayılarak yapıldı.bir modüle kopyalayın çalıştırın..

Sub deneme()
y = 1
For x = 1 To Range("a100000").End(3).Row

a = Split(Range("a" & x), Chr(32))
Range("c" & y) = a(UBound(a))
Range("c" & y + 1) = a(LBound(a))
y = y + 2
Next x
End Sub

 

[dertbende]

teşekkürler