使用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