bir hücredeki veriyi belli sayıda alt alta yazdırma

[ci-an]

Merhaba,

B sütunumda rastgele farklı sayılar mevcut.

Bu sayıları farklı bir sütunda 19 kere alt alta yazdırmak istiyorum.

Örneğin b sütunumda 5 verisi var. Bu 5 verisini f sütununda 19 kere alt alta hücrelere yazsın. Sonrasında b sütunumda bir alttaki satırda 10 verisi. var. 10 verisi yine f sütunun devamına 19 kere alt alta yazsın.

B sütunumda 500 ten fazla rakam var. Bunları bir formülle nasıl yapabilirim?

Teşekkürler.

İyi çalışmalar.

 

[Merhum İdris SERDAR]

.

Buraya bakın.

http://www.excel.web.tr/f14/sayy-ooaltma-t169376.html


.

 

[numan şamil]

Merhaba
Makro ile isterseniz
aşağıdaki kodları dener misiniz
E1 hücresine tekrarlanacak rakamı yazarsınız

Sub Numan()
    Dim x, k, Satır As Long
     Range("D1:D" & Rows.Count).ClearContents
    sat = Cells(Rows.Count, "B").End(3).Row
    Application.ScreenUpdating = False
    Satır = 1
    For x = 1 To sat
    For k = 1 To Range("E1").Value
    Range("D" & Satır) = Range("B" & x)
    sat = sat + 1
    Satır = Satır + 1
   Next k
  Next x
  Application.ScreenUpdating = True
End Sub