添加另一行数据

Question

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

我正在尝试在 table 的末尾添加另一行数据，但它一直在做的只是添加另一行，但没有添加实际数据。

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

它只会向 table 添加一行，但无论我尝试什么，它都不会添加 strData 值。用于测试目的的列是 "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

添加另一行数据

Adding another row with data

excel

vba