向vba中的行選擇添加新行

我有一個電子表格分成不同的部分，每個部分有一個'添加新行'，它添加到該部分中的現有行。

我已經在Currentregion函數中進行了計數行，但堅持選擇最後一行，然後在下面添加一行。

到目前爲止的代碼是計數位在那裏我可以在部分已經返回的行數：

Dim numberOfRows As String 

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

不過，我在努力尋找添加額外行的下一個步驟。

來源

2016-06-21 This Name

你可以顯示你到目前爲止的代碼嗎？ –

@Matt Cremeens剛編輯我的問題，謝謝。 sBudgetLine是該部分的名稱並傳遞給該方法，這段代碼就是我開始的，我使用currentregion來跳過該部分的部分頭和列頭 - 希望這有助於。 –

爲什麼numberofRows是一個String？如果您打算將它用作單元格引用，則應該是整數。

Dim NumberofRows as Integer 

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

Rows(NumberofRows).Insert

來源

2016-06-21 20:37:24

對不起的拼字錯誤 - 試圖找到適當的值位置，例如B292 –

如果您想查找單元格地址，例如「B292」，那麼您將在查找單元格的末尾使用.Address。例如，SomeCell = Cells（292,2）.Address將返回一串「$ B $ 292」。你不能混用這兩種方法。在你只是識別行號的情況下，你會使用一個整數。您是想添加一整行還是在列中插入單個單元格？ –

啊，好吧，我正在尋找在現有行下面添加一整行 –

向vba中的行選擇添加新行

回答

相關問題