在最后一個單元格下方而不是上方插入一行

Question

任何人都可以幫我解決這個問題嗎？

我正在嘗試編寫一個宏，該宏將在第 1 頁上包含文本的最后一行之后插入一個帶有文本的新行 - 請參見下圖。

我希望宏在PAGE 1上插入一個新行，在第 16 行之后，從而擴展第 1 頁的邊框，或者換句話說就是在它下面。

但它只是出於某種原因在上面插入一行。 我需要它插入下面。

這是代碼 -

Sub Macro5()


lastrow = Cells(Rows.Count, 1).End(xlUp).Row

Rows(lastrow).Select

Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove


End Sub

應該是一個簡單的任務，但由於某種原因，我找不到答案。

先感謝您。

Answer 1

只修改一行

lastrow = Cells(Rows.Count, 1).End(xlUp).Row + 1

Answer 2

插入行

• 這將插入上面的行，然后將下面的行復制到上面的行保持其格式。
• 不確定這是否會保留Page 1的最后一行。

編碼

Option Explicit

Sub Macro5()
    Dim LastRow As Long
    LastRow = Cells(Rows.Count, 1).End(xlUp).Row
    Rows(LastRow).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromRightOrBelow
    Rows(LastRow + 1).Copy Rows(LastRow)
End Sub