Excel - Verileri değişkene göre doldur

Konu

Sabit bir sütuna eklenmiş bir sayıya göre değişken sayıda satır içeren bir Excel sayfası doldurmak istiyorum.

 sütun ABCD r1 2009096 1001 19 5 r2 2009097 1002 12 2 r3 2009097 1003 36 6 r4 2009099 1004 10 3 r5 2009099 1005 11 3 r6 2009099 1006 12 2 r7 2009099 1007 13 4 r8 2009101 1008 25 5 r9 2009102 1009 19 5 

D sütununa eklenen sayılara göre, aşağıdaki sonucu elde etmeyi düşünüyorum:

 sütun ABC r1 2009096 1001 19 r2 2009096 1001 19 r3 2009096 1001 19 r4 2009096 1001 19 r5 2009096 1001 19 r6 2009097 1002 12 r7 2009097 1002 12 r8 2009097 1003 36 r97003 363 363 9192 9192 9193193193192353192193e07363e. r13 2009097 1003 36 

Çözüm

Bu verinin 1. tabakadan başlayarak, 1. satırdan başlayarak (başlıksız) olduğu varsayılmaktadır.

Sonuç sayfa2'de gösterilecektir.

Sayfa adlarını düzeltin ve önce dosyayı yedekleyin, ardından bu makronun istenen sonucu sağlayıp sağlamadığını görün:

 Alt Test () Dim lRow, lRow2, x, y Tamsayı Olarak lRow = Sayfalar ("sayfa1"). Aralık ("E" & Rows.Count) .End (xlUp). Sayfalardaki Her Hücre İçin Sıra "(" Sayfa1 ") .Range ("E1: E" & lRow) x = hücre.Value y = 0 Sayfa ("Sayfa1") Yap. Aralığı Seçin (Hücreler (hücre.Aşağı "A"), Hücreler (hücre.Aşağı, "D" )) Kopyala lRow2 = Sayfalar ("Sayfa2"). Aralık ("A" ve Satır. Miktar) .End (xlUp) .Offset (1, 0) .Row Sayfalar ("Sayfa2"). Aralık ("A" & lRow2) .PasteÖzel y = y + 1 x = y'ye kadar döngü Bir sonraki hücre Son Sub 

Bu ipucu için TrowaD'a teşekkürler.