要写代码赋值
Dim Names(3) As StringNames (0) = "杨国辉"Names (1) = "柯迎"Names (2) = "陈绍月"Names (3) = "朱志欣"
Dim t As Table = Tables("表A")For Each name As String In names Dim nr As Row = t.AddNew nr("第一列") = nameNext