Bir sütundaki verileri çoğaltıp alt alta yazma

Kodla Büyü
halaçoğlu

halaçoğlu

Seçkin Üye
Seçkin Üye
Mesajlar
339
Örneğin A sütununda
Ali
Ahmet
Ayşe

Bunları asagidaki gibi nasıl çoğaltabilirim

Ali
Ali
Ali
Ahmet
Ahmet
Ahmet
Ayşe
Ayşe
Ayşe

Makro kullanmadan yapabilirmiyim veya nasıl bir makro yazmam lazım
 
Verileri girip hücreleri seçin ve 3. hücrenin sağ alt köşesinden tutup aşağıya doğru istediğiniz kadar çekip çoğaltabilirsiniz.
 
Yok hocam ben anlatamadım galiba. 173 tane öğrenci ismi var. Bunların her birini 3 er li alt alta yazmak istiyorum. Yani
A
B
Ç
.
.
Bunu
A
A
A
B
B
B
C
C
C
.
.
.
 
Bütün isimleri seçip, sağ alt köşedeki hücre kulpundan tutup, istediğiniz sayıda aşağıya çekin. Ardından isim sırasında sıralayın.
 
hoca alt alta bütün isimleri yaz, aşağıya doğru çek üçer kopya olsun. sonra üst taraftan(veri/filtreler) filtrele yap. filtreledikten sonra filtreyi kapatırsın ;) sırala da olur
 
Kod: 
sayac = Sayfa1.Range("A1048576").End(xlUp).Row
satir = 1
For i = 1 To sayac
    For j = 1 To 3
        Sayfa1.Range("B" & satir).Value = Sayfa1.Range("A" & i).Value
        satir = satir + 1
    Next j    
Next i
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst