更改格式后类型不匹配

lidayu

shuidisyy 发表于 2020-12-11 20:45
Sub test()
    Dim arrData, arrResult, dic As Object, d As Object
    Dim x&, irow&, i&, n&, j%, ...

shuidisyy

您好，销售总表！L列汇总不对请您再调整下，呈上附件，谢谢！
12-11变更格式出现类型不匹配.part1.rar (1000 KB, 下载次数: 1)

2020-12-11 23:35 上传

点击文件名下载附件 12-11变更格式出现类型不匹配.part2.rar (437.13 KB, 下载次数: 1)

2020-12-11 23:36 上传

点击文件名下载附件

shuidisyy

lidayu 发表于 2020-12-11 23:36
shuidisyy您好，销售总表！L列汇总不对请您再调整下，呈上附件，谢谢！

你说的是前5列不一样才汇总，实际是按前4列汇总，把这儿改一下 str = arrData(i, 1) & arrData(i, 2) & arrData(i, 3) & arrData(i, 4) 结果不对是因为s1、s2我忘归零了，加上这句s1 = 0: s2 = 0，楼上代码我调整了，细节部分就自己调整一下吧

lidayu

shuidisyy 发表于 2020-12-12 09:27
你说的是前5列不一样才汇总，实际是按前4列汇总，把这儿改一下 str = arrData(i, 1) & arrData(i, 2) & a ...

shuidisyy

你好，非常感谢你耐心的帮助。
加上这：s1 = 0: s2 = 0统计结果对了。
str = arrData(i, 1) & arrData(i, 2) & arrData(i, 3) & arrData(i, 4) 见下图：

正确结果如下：

我是菜鸟一个不会，请您再帮我修改下，谢谢！

lidayu

shuidisyy 发表于 2020-12-12 09:27
你说的是前5列不一样才汇总，实际是按前4列汇总，把这儿改一下 str = arrData(i, 1) & arrData(i, 2) & a ...

shuidisyy

你好，还有销售总表L列后的数据不要清除，请您一并调整下，谢谢！

shuidisyy

lidayu 发表于 2020-12-12 11:50
shuidisyy你好，还有销售总表L列后的数据不要清除，请您一并调整下，谢谢！

代码楼上已经调整了，细节需要你自己完善

lidayu

shuidisyy 发表于 2020-12-12 16:04
代码楼上已经调整了，细节需要你自己完善

你好，我是菜鸟不会弄，所以还请您帮助完善，在下感激涕零。

lidayu

shuidisyy 发表于 2020-12-12 16:04
代码楼上已经调整了，细节需要你自己完善

shuidisy

您好，我实在不会，您都已帮了九十九就差这一步，就好人做到底送人送到西，菜鸟将感激不尽。

shuidisyy

代码楼上已经调整了，你都没看

lidayu

lidayu

shuidisyy 发表于 2020-12-14 08:45
代码楼上已经调整了，你都没看

shuidisyy

您好，上面的贴子由于网站问题出现上传错误。
更改的代码运行后缺少单号：HX212110-04的路易：9.6877m2没有统计，请您再帮核对下，谢谢！
另外，销售总表 L列后的数据不要清除。

想要的结果如下：