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。

将第3行中的m更改为m + 1以获得最终的“你好”。

Answer 2

怎么样：

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

    Dim r As Range
    Set r = Intersect(ActiveSheet.UsedRange, Range("A:A").Cells.SpecialCells(xlCellTypeBlanks))
    r.Value = "Hello"
End Sub

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

2 个答案: