Wendet Formel nicht auf die letzte Zeile an

Question

Ich versuche, eine letzte Zeile hinzuzufügen, und lege dann Formeln in bestimmte Zellen in dieser letzten Zeile. Wenn ich das ausführe, was ich habe, fügt es die Formel der letzten Zeile OLD hinzu, nicht die, die ich neu erstellt habe. Kannst du mir bitte helfen?

Sub AddDataRow() 

    Dim tableName As String 
    Dim sheet As Worksheet 
    Dim table As ListObject 
    Dim lastRow As Range 

    tableName = ActiveSheet.ListObjects(1) 
    Set sheet = Range(tableName).Parent 
    Set table = sheet.ListObjects.Item(tableName) 

    If table.ListRows.Count > 0 Then 
     Set lastRow = table.ListRows(table.ListRows.Count).Range 
     If Application.CountBlank(lastRow) < lastRow.Columns.Count Then 
      table.ListRows.Add 
     End If 
    End If 

    lastRow.Columns("L").Formula = "=A1+B1" 

End Sub 

Answer 1

Wenn Sie eine Zeile hinzufügen, wird die letzte Zeile um eine Zeile nach unten verschoben.

müssen Sie Ihre letzte Zeile erneut vor lastRow.Columns("L").Formula = "=A1+B1" ermitteln.

Fügen Sie einen weiteren Set lastRow = table.ListRows(table.ListRows.Count).Range vor der obigen Zeile hinzu.