Помогите с макросом, плииииз

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

Здравствуйте! Есть такой вопрос
ниже есть макрос, он написан на повторение чисел, как его можно переделать так что бы можно было повторять слова, к примеру:
я пишу в одну строку "слово" и мне его нужно повторить еще два раза
"слово"
"слово"
"слово"
и сделать это так....ммм блин, как объяснить
в общем нужен цикл такой:
А1 - "слово" (это слово пишу я)
А2 - "слово" (а это должно сама прописаться)
А3 - "слово" (а это должно сама прописаться)
А4 -"другое слово" (это слово тоже пишу )я
А5 - "другое слово" (а это должно сама прописаться)
А6 - "другое слово" (а это должно сама прописаться)

Sub Нумерация()

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

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

_____



Заранее огромное спасибо!!!

[Aleksandr H.]

Sub Нумерация()

Dim num As string, nom_row As Integer
num = "": nom_row = 1
num = InputBox("Слово?")
While num <> "STOP"
Cells(nom_row, 1) = num
Cells(nom_row + 1, 1) = num
Cells(nom_row + 2, 1) = num
nom_row = nom_row + 3
num = InputBox("Слово?")
Wend

End Sub

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

Этот макрос прикольный=)
Но нужно немного по другому...
у меня есть список слов, который выглядит так:
А1 - "Слово"
А2 - (пустая строка)
А3 - (пустая строка)
А4 - "Слово2"
А5 - (пустая строка)
А6 - (пустая строка)
А7 - "Слово3"
А8 - (пустая строка)
А9 - (пустая строка)

Можно как-то оптимизировать что бы выделяя данный список я могла применить макрос и он копировал из А1 в А2, А3, из А4 в А5, А6 и т.д...??

[Aleksandr H.]

ето без макроса делается.
Читайте
https://www.planetaexcel.ru/techniques/2/96/

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

ООО ЧУДО!!!
Огромнейшее спасибо
Примного благодарно
Все гениальное-просто

[Serge_Bliznykov]

Система не даёт добавить плюс в репутацию.
Поэтому пишу в теме.

Сообщение от Aleksandr H.

Это без макроса делается.

Спасибо! Красивое и эффективное решение!