用数据添加另一行

我已经看到了一个正确的方法，但我有这么多的麻烦。

我试图添加另一行数据在我的表的结尾，但它所做的一切是添加另一行，但不添加实际的数据。

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值，无论我尝试什么。 其用于testing目的的列是“M”

任何帮助，将不胜感激

Answer 1

看起来像一个印刷错误:(这就是为什么你应该总是使用Option Explicit ）

 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