excel - 每 n 行自动填充

Question

如何根据 A 列自动填充整个 B 列，但每个字母之间有 n 个空行？

Column A:

a
b
c

Column B:

a
...
...
b
...
...
c

我已经尝试了下面的 VBA 代码:

Range("A1:A3").AutoFill Destination:=Range("A1:A10"), Type:=xlFillDefault

该代码适用于数字，但不适用于单元格引用公式(在本例中为 =A1 ，...)，因为代码似乎引用了公式所在的行，而不是 A 列中的列表。
例如，代码在 c 之后的一行插入公式。在 B7 , 但是会插入 =A7而不是 =A4这将是字母 d .
对此的任何帮助将不胜感激。

Answer 1

插入 n row对于 A 列中的每个值，我将使用 offset要解决它，这是解决方案，希望您觉得它有用:

Sub ty()

Dim count As Long, i As Long, nextrow As Long

count = Application.WorksheetFunction.CountA(Sheet1.Range("A:A"))
nextrow = 1

For i = 1 To count
    Sheet1.Cells(nextrow, 2).Value = Sheet1.Cells(i, 1).Value
    nextrow = Cells(nextrow, 2).Offset(3, 1).Row
Next

End Sub

预期输出:

为了将公式保存到新单元格中，您可能需要 copy方法`通过改变这部分:

For i = 1 To count
    Sheet1.Cells(i, 1).Copy Sheet1.Cells(nextrow, 2)
    nextrow = nextrow + 3
Next