как сделать в excel нумерацию строк с повторением

[Марилибоби]

Хелп!) Как изменить цикл, который описан ниже так, что бы следующее число было через 2 строки (то есть нужно что бы список был таким:
1
1
1
2
2
2
3
3
3
......и т.д.)

Sub while_loop ()

Dim num As Integer
num = 1
While num <= 350
Cells (num, 1) = num
num = num + 1
Wend

End Sub

[Serge_Bliznykov]

так ?

Sub while_loop()

Dim num As Integer, nom_row As Integer
num = 1: nom_row = 1
While num <= 300
  Cells(nom_row, 1) = num
  Cells(nom_row + 1, 1) = num
  Cells(nom_row + 2, 1) = num
  nom_row = nom_row + 3
  num = num + 1
Wend

End Sub

[Марилибоби]

да да да да
огромное спасибо

[Serge_Bliznykov]

Всегда пожалуйста!