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

填写表格时遇到问题。

combobox更改后，表格中将填充数据。 首先，我想删除表格中的数据，然后添加我想要的数据。

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

Dim TableListObject As ListObject Dim TableObjectRow As ListRow Dim i As Integer Dim CollWerknemer as Collection Set TableListObject = TheSheet.ListObjects(1) Set TableObjectRow = TableListObject.ListRows.Add TableListObject.DataBodyRange.Delete i = 1 For Each vNum In CollWerknemer TableObjectRow.Range(i, 1) = vNum i = i + 1 Next vNum 

问题是，它删除表，但不添加任何东西。

如果我从代码中排除TableListObject.DataBodyRange.Delete ，它将使用我想要的数据填充表，但如果更改我的combobox，新数据将添加到底部，而不是先清除表。

Answer 1

首先，您可以迭代当前表中的每一行，并删除其内容，然后使用ListRows.Add

 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