如果发现特定字母，如何在Excel中插入新行

我是相当新的Excel尤其是在macrosvba中，我试图设置一个macros，在工作表的特定点上面添加一行。

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

在这里input图像说明

这可能吗？ 怎么样？

感谢所有可能的帮助。

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）.Insert

---

有用的url

Excel VBA快捷键范围参考

Range.Resize属性（Excel）

---

_{Range.Resize属性（Excel）调整指定的范围。 返回表示resize的范围的Range对象。}