使用 VBA 将包含数据的新行添加到 excel 工作表

Question

我正在向表中添加一个新行，但想将数据添加到我刚刚添加的行中。 我在想这样的事情，但不确定如何将每列数据添加到新行。 我的表有 4 列，名为“store”“emp#”“date”和“amt”。 我有特定的数据，我将把它们放在每一列中。 我简化了代码，因为宏还有更多内容，但只是停留在这一部分。 谢谢你的帮助。

Dim rt_ws As Worksheet
Dim rt_tbl As ListObject

Set rt_ws = ThisWorkbook.Worksheets("RT Clock Hours")
Set rt_tbl = rt_ws.ListObjects("rt_hours")

With rt_table.ListRows.Add

    .  `this is where I am not sure what to do`
    .
    .

End Sub

Answer 1

试试这个代码

Sub Test()
    Dim ws As Worksheet, tbl As ListObject

    Set ws = ThisWorkbook.Worksheets("RT Clock Hours")
    Set tbl = ws.ListObjects("rt_hours")

    With tbl.ListRows.Add
        .Range = Array("Store1", "1530", "05/03/2020", "Amt1")
    End With
End Sub