使用VBA按字段填写Excel表

我有一个Excel表，我需要通过logging填写logging。

我开始了一个代码

Private Sub AddRecBro_Click() Dim Tbl As ListObject Dim NewRow As ListRow Set Tbl = Worksheets("Broker").ListObjects("Broker") Set NewRow = Tbl.ListRows.Add(AlwaysInsert:=True) .... End Sub 

现在我想填充这个表字段有点像这样…

 Field("ID")=Max(Broker[ID])+1 Field("F1")=Sheets("Dashboard").Range("U5").Value Field("F2")=Sheets("Dashboard").Range("U6").Value Field("F3")=Sheets("Dashboard").Range("U7").Value etccc 

我不知道如何填充我的列表对象这种方式…其实我有我的数据在列中，而不是在同一个地方…所以我想select他们在他们的位置填满新的logging.. 。 谢谢

Answer 1

ListObject表由HeaderRowRange （如果表具有标题）和DataBodyRange 。 两者都是Range对象，您可以使用单元格的常规迭代方法进行迭代：

 Dim r as Long, c as Long For r = 1 to Tbl.DataBodyRange.Rows.Count For c = 1 to Tbl.DataBodyRange.COlumns.Count Tbl.DataBodyRange.Cells(r, c).Value = "__Insert some value__" Next Next