向vba中的行选择添加新行答案

【问题标题】：Adding a new row to a selection of rows in vba向vba中的行选择添加新行
【发布时间】：2016-06-22 05:02:36
【问题描述】：

VBA 新手！

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

我尝试了 Currentregion 函数，它计算行数，但坚持选择最后一行，然后在下面添加一个。

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

Dim numberOfRows As String

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

但是，我正在努力寻找添加额外行的下一步。

【问题讨论】：

你能展示你目前的代码吗？
@Matt Cremeens 刚刚编辑了我的问题，谢谢。 sBudgetLine 是节的名称并传递给方法，这段代码是我一直在开始的，我正在使用 currentregion 跳过节的节标题和列标题 - 希望这会有所帮助。

标签： vba excel

【解决方案1】：

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

Dim NumberofRows as Integer

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

Rows(NumberofRows).Insert

【讨论】：

抱歉错字 - 试图找到正确的值位置，例如B292
如果您想查找单元格地址，例如“B292”，那么您可以在查找单元格末尾使用 .Address。例如， SomeCell=Cells(292,2).Address 将返回字符串“$B$292”。你不能混合使用这两种方法。如果您只识别行号，您将使用整数。您是要添加一整行还是在一列中插入一个单元格？
嗯，好的，我希望在现有行下方添加一整行
我编辑了我的答案，并替换了您拥有的代码。这假设您有一列连续的数据。如果您的列中有空白且列下方没有任何内容，我更喜欢使用 NumberofRows=Cells(Rows.Count,1).End(xlUp).Row