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

我对Excel相当陌生，尤其是在宏vba中，我正在尝试设置一个宏，在工作表的特定点上方添加一行

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

这可能吗？怎么做

---

感谢所有可能的帮助。

这应该可以做到，请参见下面的示例

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=单元格（Rows.Count，[“A”]）。结束（xlUp）。行到2步骤-1
如果单元格（i-1，[“A”]）单元格（i，[“A”]），则行（i）。插入
接下来我
以
端接头

若要添加2行或更多行，请使用行（i）。调整大小（2）。插入

---

有用的链接

---

调整指定范围的大小。返回表示已调整大小的范围的范围对象