Vba 使用数据添加另一行

我到处寻找正确的方法，但我遇到了很多麻烦

我试图在表的末尾添加另一行数据，但它一直在添加另一行，但没有添加实际数据

Sub CommandButton1_Click()
Dim lastRow As Long
Dim iHeader As Integer
Dim strData As String
strname = InputBox(prompt:="Enter data")
    Set myTable = ActiveSheet.ListObjects("Table1")
    ActiveSheet.ListObjects("Table1").ListRows.Add
         With ActiveSheet.ListObjects("Table1")
            lastRow = ActiveSheet.ListObjects("Table1").ListRows.Count
        End With
    ActiveSheet.Cells(lastRow, "M").Value = strData    
End Sub 

它只会向表中添加一行，但无论我如何尝试，它都不会添加strData值。用于测试目的的列为“M”

---

任何帮助都将不胜感激。

看起来像是印刷错误：（这就是为什么您应该始终使用）

---

我尝试删除额外的+1，但仍然存在相同的问题，即它不断添加行，但不添加行中的数据。我的表从行1开始。我添加了

MsgBox lastRow

当代码执行时，它给了我正确的行号，但仍然没有数据。哈哈，刚刚注意到输入错误。您的变量是strData，但在InputBox代码行中使用strname…必须使用

选项Explicit

bro！哈哈，我才意识到我自己。。。。我真的很抱歉，这是漫长的一天

Option Explicit
Sub CommandButton1_Click()
    Dim lastRow As Long
    Dim iHeader As Integer
    Dim strData As String
    strData = InputBox(prompt:="Enter data") 'Fixed variable here
    Set myTable = ActiveSheet.ListObjects("Table1")
    With myTable
        .ListRows.Add
        lastRow = .ListRows.Count
    End With
    ActiveSheet.Cells(lastRow, "M").Value = strData    
End Sub