如果找到特定字母，如何在Excel中插入新行

Question

我对Excel很新，特别是在宏vba中，我正在尝试设置一个宏，在工作表的特定点上方添加一行。

另一个例子显示循环方法，它不是我想要的。我想在第一个特定字母上面插入新行但不重复。我会告诉你这个例子。

enter image description here

这可能吗？怎么样？

感谢您提供所有可能的帮助。

Answer 1

这应该这样做，见下面的例子

Option Explicit
Public Sub Example()
    Dim i&

    With ThisWorkbook.Worksheets("Sheet2")
        For i = Cells(Rows.Count, ["A"]).End(xlUp).Row To 2 Step -1
            If Cells(i - 1, ["A"]) <> Cells(i, ["A"]) Then Rows(i).Insert
        Next i
    End With

End Sub

要添加2行或更多行，请使用行（i）.Resize（2）。插入

有用的链接

Excel VBA Shortcut Range References

Range.Resize Property (Excel)

  

_{Range.Resize Property (Excel)调整指定范围的大小。返回表示调整大小范围的Range对象。}