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

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:项目.table

此主题相关图片如下：表a.png

此主题相关图片如下：表b.png

参考

红袍老师，上面代码转换过来，表a只是部分数据到表b，要怎样完善才能把表a数据不缺少转到表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")