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

dsmch

点击按钮，生动生成结果

许海鑫

dsmch 发表于 2012-10-16 22:00
点击按钮，生动生成结果

高手，在我那个5万多条记录的表中，我ALT+F11，打开vba编辑器之后我应该怎么操作呢

许海鑫

dsmch 发表于 2012-10-16 22:00
点击按钮，生动生成结果

高手你写的编码我试了，不过出现了一种情况，比如说养老编号是1111这个人199601到199607的缴费基数、各缴费比例是一样的，可以合并账户，199608的缴费基数到199911合并账户，但是199612的缴费基数、个缴费比例又和199601到199607的一样了，执行后，我发现：199601到199612都合并起来了，然后又是199608到199611呢。就是说合并账户的时候，跨月份的情况也会合并呢。高手，这个问题能解决吗？

真是太感谢你了，一段代码，节省了我一个星期的时间！

dsmch

1. Dim arr, brr, d As Object, i&, j&, k&, x$
   
2. Set d = CreateObject("scripting.dictionary")
   
3. arr = Range("a2:r" & Range("a65536").End(xlUp).Row)
   
4. Range("a2:q" & UBound(arr)).ClearContents
   
5. arr(1, 18) = 1
   
6. For i = 2 To UBound(arr)
   
7.     If arr(i, 1) & "," & arr(i, 5) & "," & arr(i, 9) & "," & arr(i, 10) & "," & arr(i, 14) = arr(i - 1, 1) & "," & arr(i - 1, 5) & "," & arr(i - 1, 9) & "," & arr(i - 1, 10) & "," & arr(i - 1, 14) Then
   
8.         arr(i, 18) = arr(i - 1, 18)
   
9.     Else
   
10.         arr(i, 18) = arr(i - 1, 18) + 1
    
11.     End If
    
12. Next
    
13. For i = 1 To UBound(arr)
    
14.     x = arr(i, 1) & "," & arr(i, 5) & "," & arr(i, 9) & "," & arr(i, 10) & "," & arr(i, 14) & "," & arr(i, 18)
    
15.     d(x) = d(x) & "," & arr(i, 7)
    
16. Next
    
17. ReDim brr(1 To d.Count, 1 To UBound(arr, 2) - 1)
    
18. a = d.keys: b = d.items
    
19. For j = 0 To d.Count - 1
    
20.      m = Split(b(j), ",")
    
21.     For i = 1 To UBound(arr)
    
22.         x = arr(i, 1) & "," & arr(i, 5) & "," & arr(i, 9) & "," & arr(i, 10) & "," & arr(i, 14) & "," & arr(i, 18)
    
23.         If a(j) = x Then
    
24.             For k = 1 To UBound(arr, 2) - 1
    
25.                 brr(j + 1, k) = arr(i, k)
    
26.             Next
    
27.                brr(j + 1, 7) = IIf(m(0) = "", m(1), m(0))
    
28.                brr(j + 1, 6) = Right(brr(j + 1, 7), 2)
    
29.                brr(j + 1, 8) = m(UBound(m))
    
30.         End If
    
31.     Next
    
32. Next
    
33. Range("a2").Resize(UBound(brr), UBound(brr, 2)) = brr
    

复制代码

许海鑫

dsmch 发表于 2012-10-17 21:29

高手这个代码也有问题，执行之后合并之后终止月份没有变化呢

许海鑫

dsmch 发表于 2012-10-17 21:29

高手，我加你qq可以吗？我的是1327908631，希望你能帮帮我，不胜感激啊

乐铁松

看过效果，的确值得学习，但是，由于原数据没有次序，结果也还是有问题的，比如说，有199506-199511,又有199507-199507等，应该是199506-199506,199507-199507,199508-199510,199511-199511，也想好好地学习啦。

唐僧二代

我这里给你一个不用VBA就可以的方法，

分三步：

1\先按此顺序做透视表，注意每个字段的顺序要如下顺序
2\将做的透视表复制到新表，并设公式进行判断（P\Q行为设的公式）
3、用筛选，选出P行不为1的,再用定位条件选出可见单元格就行了，粘贴复制到空白表格上
4、再调整格式：设置公式。利用筛选一下子就把空白全填满

唐僧二代

整理完后，自己可以按日期排序

许海鑫

唐僧二代 发表于 2012-11-2 13:55
我这里给你一个不用VBA就可以的方法，

分三步：

嗯，谢谢高手了，得好好学习了