根据Excel中的条件自动在单元格中输入数字

Question

我在列中有条目如下：

Col1  Col2  Col3  Col4  Col5
1      0     0      1    0 

如您所见，在“Col1中的1”之后，每3个位置重复1次。我想写一个代码，如果我输入“4”，那么1应该在每个第4个位置重复...如果我写2然后它应该在每个第2个位置重复......

示例输出：我输入一个单元格：“4”

Col1  Col2  Col3  Col4  Col5
1      0     0      0    1

注意：我不知道如何在StackOverflow中创建表格，任何帮助都会很棒：（

谢谢！

Answer 1

将它放在A1中并拖动/复制：

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

Answer 2

这是带有“可选参数”的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

要运行它，go to the immediate window，请写下RepeatMe，然后按 Enter 。