在Excel VBA表格中删除和添加项

我填桌子有问题

更改组合框后，该表将填充数据。首先，我想删除表中的数据，然后添加我想要的数据

我得到的是这个（这只是代码的一部分，集合中已经充满了数据）

问题是它确实删除了表，但没有添加任何内容

---

如果我从代码中排除

TableListObject.DataBodyRange.Delete

，它会用我想要的数据填充表格，但是如果我更改组合框，新数据将添加到底部，而不是首先清除表格。

首先可以迭代当前表格中的每一行，并删除其内容，然后使用列表行。添加

With outTBL
    If .ListRows.Count >= 1 Then
        .DataBodyRange.Delete
    End If
End With

Dim row as ListRow
Set row = outTBL.ListRows.Add

row.Range(x, x) = vNum

---

我将outTBL改为TableListObject，因为我认为这是您想要计算的，然后它说参数不是可选的。我的意思是，完全相同的事情对我来说很好，但我在删除dataodyRange后启动我的ListRow。也许是这样？

With outTBL
    If .ListRows.Count >= 1 Then
        .DataBodyRange.Delete
    End If
End With

Dim row as ListRow
Set row = outTBL.ListRows.Add

row.Range(x, x) = vNum