Question

我有一张Excel表，我需要按记录填写记录。

我开始了代码

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

我不知道如何以这种方式填充我的列表对象...实际上我的数据在列中而不是在同一个地方...所以我想在他们的位置选择它们来填补新的记录... 感谢

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

使用VBA字段填写Excel表格

1 个答案: