小白求助

171894346

小白求助VBA，请看附件，谢谢

171894346

行过路过，千万别错过，麻烦各位帮我偏一下代码，谢谢

lr116529111

171894346 发表于 2017-5-22 19:30
行过路过，千万别错过，麻烦各位帮我偏一下代码，谢谢

给你个思路吧，字典可以完美解决

171894346

lr116529111 发表于 2017-5-22 21:56
给你个思路吧，字典可以完美解决

不懂VBA呢~~~~~~~~

171894346

行过路过，千万别错过，麻烦各位帮我偏一下代码，谢谢

lr116529111

171894346 发表于 2017-5-23 08:53
行过路过，千万别错过，麻烦各位帮我偏一下代码，谢谢

见鬼了，发了N次都失败

171894346

lr116529111 发表于 2017-5-23 10:40
见鬼了，发了N次都失败

有一个问题就是 ，带箭头的引用错误，F9引用的是F8，I9引用的是I8的数值(即引用同名称最后F列或I列的一个值）

lr116529111

171894346 发表于 2017-5-23 14:47
有一个问题就是，带箭头的引用错误，F9引用的是F8，I9引用的是I8的数值(即引用同名称最后F列或I列的一个 ...

把之前的代码改一下就可以了

1. If Not d1.exists(arr(i, 1)) Then
   
2.           d1(arr(i, 1)) = arr(i, 2) & "," & arr(i, 5)
   
3.         Else
   
4.           If arr(i, 2) <> "" Then
   
5.              d1(arr(i, 1)) = arr(i, 2) & "," & arr(i, 5)
   
6.           Else
   
7.              d1(arr(i, 1)) = d1(arr(i, 1))
   
8.           End If
   
9.         End If

复制代码

171894346

lr116529111 发表于 2017-5-23 15:01
把之前的代码改一下就可以了

还有一个问题就是为什么修改E列的名称时，对应的F列和I列不会变，望可修改一下，谢谢！！！

lr116529111

171894346 发表于 2017-5-23 18:05
还有一个问题就是为什么修改E列的名称时，对应的F列和I列不会变，望可修改一下，谢谢！！！

不明白你说的，修改之前你的先把F清空试试