aynı bilgiyi tekrarlatma

[olmayan]

Merhaba, ekli listedeki, A sheet'indeki sayıların yanına B sheetindeki her hücrenin 89 kez yazılmasını istiyorum. Örnek: 1 sayısı için 1:A1, 1:A2, 1:A3 ....1:A89, 2:A1,2:A2 gibi olacak. yani B deki 89 satırı A daki her sayıya çoklıcaz.) teşekkürler, iyi çalışmalar.

 

[hlojan]

Private Sub CommandButton1_Click()
Dim i As Integer
For k = 1 To 84
For i = 1 To 84

 Worksheets("liste").Cells(k, i + 1).Value = Worksheets("liste2").Cells(i, 1).Value
 
Next i
Next k
End Sub

 

[olmayan]

hızlı dönüş için teşekkürler, fakat ben alt alta istiyorum bilgileri 1 den 89 adet altına 2 89 adet gibi yani

1a1
1a2
1..a89
2a1
2a2
2..a89
3a1

gibi

tşeşekküler