[已解决]查找列相同项所对应其他列的数据并转成行对应排列问题

dsmch

………………

dsmch 发表于 2015-2-15 12:24
………………

• 谢谢老师！
  还在请老师指导：
  If Not d.exists(arr(i, 1)) Then
•         n = n + 1
•         s = (n - 1) * 3 + 1
•         d(arr(i, 1)) = s
•         brr(s, 1) = arr(i, 1)
•         brr(s, 2) = arr(i, 2)
•         brr(s, 3) = arr(1, 5)
•         brr(s + 1, 3) = arr(1, 3)
•         brr(s + 2, 3) = arr(1, 4)
•         brr(s, l) = arr(i, 5)
•         brr(s + 1, l) = arr(i, 3)
•         brr(s + 2, l) = arr(i, 4)
•     Else
•         h = d(arr(i, 1))
•         brr(h, l) = arr(i, 5)
•         brr(h + 1, l) = arr(i, 3)
•         brr(h + 2, l) = arr(i, 4)
  这部分代码我能看懂一部分，我现在要在SHHET1中，C列前面插入一列，或多列，这部分代码如何调整呢？
  

还请老师在给与指导！谢谢！

dsmch 发表于 2015-2-14 19:51

老师，在云因中出现错误6，溢出，应如何调整？