在vba中为选定的行添加新行

Question

VBA新手！

我将电子表格拆分为多个部分，每个部分都有一个“添加新行”，它会添加到该部分中的现有行。

我已经对Currentregion函数进行了计算，该函数对行进行了计数，但仍然选择最后一行，然后在下面添加一行。

到目前为止，代码是计数位，我可以在其中返回该部分中已有的行数：

Dim numberOfRows As String

numberOfRows = Range("A:A").Find(sBudgetLine, LookIn:=xlValues).CurrentRegion.Rows.Count - 2

但是，我很难找到添加额外行的下一步。

Answer 1

为什么numberofRows是一个字符串？如果您打算将其用作单元格引用，则应为整数。

Dim NumberofRows as Integer

NumberofRows = Cells(1,1).End(xlDown).Row + 1

Rows(NumberofRows).Insert