vba - 如何在 Excel 中包含数据的每一行之后插入特定值？

Question

我正在尝试使用宏在 Excel 中包含数据的每一行之后的新行中插入一个特定值。我在网上找到了下面的脚本，但是这个脚本只插入了一个空白行。我需要插入一个值为 hello 的新行在每个数据行之后。

Sub addrowwithvalue()
  m = Range("a1").CurrentRegion.Rows.Count
  For i = m To 2 Step -1
    Cells(i, 1).EntireRow.insert
    Next
End Sub

预期输出:

row1
hello
row2
hello
row3
hello

Answer 1

尝试插入行 Cells(i, 1).Value = "hello"紧接在 Next 之前.

更改m至m + 1在最后的“你好”的第 3 行。