將數據添加到 Excel 表

Question

我正在努力找出如何將數據添加到表中。 我有以下代碼：

Dim ws As Worksheet
Set ws = ActiveSheet
Dim tbl As ListObject
Set tbl = ws.ListObjects("Table1")
tbl.ListRows.Add 1

這會在表格頂部添加一個新行，但是如何將數據添加到該新表格行中的特定列？

Column 1 in the table = Date
Column 2 in the table = Licence 1
Column 3 in the table = Licence 2
Column 4 in the table = Licence 3

我知道如果我想在表格底部添加一個新行，那么我會使用這個：

Dim ws As Worksheet
Set ws = ActiveSheet
Dim tbl As ListObject
Set tbl = ws.ListObjects("Table1")
Set NewRow = tbl.ListRows.Add
With NewRow
    .Range(1) = date
    .Range(2) = 378
    .Range(3) = 678
    .Range(4) = 897
End With

但不能不讓它適用於桌子上的特定行

謝謝

Answer 1

改變

Set NewRow = tbl.ListRows.Add

至

Set NewRow = tbl.ListRows.Add(1)

如果您不指定 position，則該行將始終添加到末尾。 （您在第一個片段中就正確了。）