关于养老保险账户合并的难题

许海鑫

383579022 发表于 2012-10-16 21:23
起月份199601，止月份199603，那么要结果表里是不是要增加列呢？

增加列也可以啊，只要是能达到目的就可以

许海鑫

383579022 发表于 2012-10-16 21:23
起月份199601，止月份199603，那么要结果表里是不是要增加列呢？

增加列也可以，只要能达到目的就可以了

383579022

许海鑫 发表于 2012-10-16 21:26
增加列也可以啊，只要是能达到目的就可以

别“也可以”呀，你把最终你想得到的结果手工演示一下，别人才好帮你。

许海鑫

383579022 发表于 2012-10-16 21:29
别“也可以”呀，你把最终你想得到的结果手工演示一下，别人才好帮你。

我附件里那个效果表就是我想要的结果，空白的行也可以去掉，因为现在的列里就有起月份和止月份，只不过现在是起月份和止月份是一样的，我是考虑是不是可以用if判断的时候自己加上的起月份、止月份这两列

383579022

许海鑫 发表于 2012-10-16 21:36
我附件里那个效果表就是我想要的结果，空白的行也可以去掉，因为现在的列里就有起月份和止月份，只不过现 ...

VBA肯定能解决，用公式的话，估计......

许海鑫

383579022 发表于 2012-10-16 21:46
VBA肯定能解决，用公式的话，估计......

Dim arr, brr, d As Object, i&, j&, k&, x$
Set d = CreateObject("scripting.dictionary")
arr = Range("a1").CurrentRegion
Range("a2:q" & UBound(arr)).ClearContents
For i = 2 To UBound(arr)
    x = arr(i, 1) & "," & arr(i, 5) & "," & arr(i, 9) & "," & arr(i, 10) & "," & arr(i, 14)
    d(x) = d(x) & "," & arr(i, 7)
Next
ReDim brr(1 To d.Count, 1 To UBound(arr, 2))
a = d.keys: b = d.items
For j = 0 To d.Count - 1
     m = Split(b(j), ",")
    For i = 2 To UBound(arr)
        x = arr(i, 1) & "," & arr(i, 5) & "," & arr(i, 9) & "," & arr(i, 10) & "," & arr(i, 14)
        If a(j) = x Then
            For k = 1 To UBound(arr, 2)
                brr(j + 1, k) = arr(i, k)
            Next
               brr(j + 1, 7) = IIf(m(0) = "", m(1), m(0))
               brr(j + 1, 6) = Right(brr(j + 1, 7), 2)
               brr(j + 1, 8) = m(UBound(m))
        End If
    Next
Next
Range("a2").Resize(UBound(brr), UBound(brr, 2)) = brr

高手，这是另一位高手写的东西，我也看不懂，你看看是VBA吗

383579022

许海鑫 发表于 2012-10-16 21:48
Dim arr, brr, d As Object, i&, j&, k&, x$
Set d = CreateObject("scripting.dictionary")
arr = Ran ...

是VBA代码。
这不很好吗？已经实现你的要求了吧？

许海鑫

383579022 发表于 2012-10-16 21:56
是VBA代码。
这不很好吗？已经实现你的要求了吧？

这个代码，怎么执行啊？呵呵，这个问题太弱了

383579022

许海鑫 发表于 2012-10-16 21:58
这个代码，怎么执行啊？呵呵，这个问题太弱了

呵呵，在代码里按F5就行。

许海鑫

383579022 发表于 2012-10-16 22:01
呵呵，在代码里按F5就行。

按F5出现下图呢

再怎么操作呢