主题：集合中的值如何一次性写入到列？

        If  c1.name.SubString(0,2) ="KG" And i<=21 Then
        Tables("xk15030020b2").Sort= "KGF" & cstr(i)
            names1.add(Tables("xk15030020b2").Compute("max(KGF" & cstr(i) & ")"))

将names1的所有值写入表

　　　tables("a").cols("zgf")=names1 代码错误，集合中的数据能否一次性写入到列中？