[已解决]合并数据

grf1973

你附件改了。。。。。原本的对应关系乱了，当然读不出来。

kele9933

看着都是晕的，高手们呐

张雄友

grf1973 发表于 2015-3-25 10:22
你附件改了。。。。。原本的对应关系乱了，当然读不出来。

B列的不重复项目不是自动生成的？怎么知道它有多少个项目？
另外：把红色注释掉，会下标越界。
    ' s = 0
                For j = 3 To UBound(arr, 2)
                    x = arr(1, j) & arr(i, 2)
                    arr(i, j) = d(x)
                  '  s = s + Val(arr(i, j))
                Next
             '   arr(i, j) = s  '最后一列合计

grf1973

早说啊，是不是这样？

张雄友

grf1973 发表于 2015-3-26 09:35
早说啊，是不是这样？

合计求和这行，跑到上面去了。

grf1973

你的数据样式一直在变，折腾死了。干脆行、列合计都计算所得，不去表里直接调用了。