主题：[求助]这列不重复值代码转成表B列名，表A第1列空间名在表B合并单元格，材料对应填入

参考

哦，写错

Dim dtb As New DataTableBuilder("表B")
dtb.AddDef("空间", Gettype(String), 32)
For Each v As String In DataTables("表A").GetValues("这列不重复值代码转成表B列名")
    dtb.AddDef(v, Gettype(String))
Next
dtb.Build()
For Each v As String In DataTables("表A").GetValues("空间")
    Dim dr1 As DataRow = DataTables("表B").AddNew()
    dr1("空间") = v
    For Each dr2 As DataRow In DataTables("表A").Select("空间 = '" & v & "'")
        Dim str As String = dr1(dr2("这列不重复值代码转成表B列名")) & "," & dr2("材料")
        dr1(dr2("这列不重复值代码转成表B列名")) = str.trim(",")
    Next
Next
MainTable = Tables("表B")