Автоматизировать ввод чисел в ячейки на основе условий в Excel

Question

У меня есть записи в столбцах следующим образом:

Col1  Col2  Col3  Col4  Col5
1      0     0      1    0 

Как видите, 1 повторяется на каждой 3-й позиции после "1 в Col1". Я хочу написать код, который, если я наберу «4», то 1 должен повторяться на каждой 4-й позиции ... и если я пишу 2, то он должен повторяться на каждой 2-й позиции ...

Пример вывода: я набираю в ячейке: "4"

Col1  Col2  Col3  Col4  Col5
1      0     0      0    1

Примечание: я не знаю, как создавать таблицы в StackOverflow, любая помощь там была бы также полезна: (

Спасибо !!

Answer 1

Это пример Sub с «необязательными параметрами»:

Public Sub RepeatMe(Optional repeatEach As Long = 3, Optional repeatLen As Long = 20)

    Dim myCell  As Range
    Cells.Clear

    Dim cnt As Long
    Range(Cells(1, 1), Cells(1, repeatLen)).Value = 0

    For cnt = 1 To repeatLen Step repeatEach
        Cells(1, cnt) = 1
    Next cnt

End Sub

Чтобы запустить его, перейдите в ближайшее окно , напишите RepeatMe и нажмите Введите .

Answer 2

поместите это в A1 и перетащите / скопируйте:

=IF(MOD(COLUMN(A:A)-1,$A$3)=0,1,0)