Excel VBA按钮，用于从上面的行添加新行和复制表格

Question

我是macros / VBA的新手。我要做的就是创建一个应该添加新行的按钮。我还想将公式复制到上面一行的新行。我的开始栏是B。

这是我从某处复制的代码

 Private Sub Button1_Click(Optional line As Integer = -1)
    Dim target As Range
    Dim cell As Range
    Dim rowNr As Integer

    Set target = Range("B5:BH323")

    If line <> -1 Then
        rowNr = line
    Else
        rowNr = target.Rows.Count
    End If

    target.Rows(rowNr + 1).Insert
    target.Rows(rowNr).Copy target.Rows(rowNr + 1)
    For Each cell In target.Rows(rowNr + 1).Cells
        If Left(cell.Formula, 1) <> "=" Then cell.Clear
    Next cell

End Sub

此代码效果很好。它会在公式中插入一个新行，但在此代码中，插入只发生在代码中提到的范围之下，我希望插入在数据的最后一行之后发生。有人可以更正此代码，新插入的也不会复制边框。

我需要的是指定包含数据的最后一行的行，同时也确保复制边框格式

Answer 1

使用单元格（Rows.Count，“B”）。结束（xlUp）。找到最后一行。