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

许海鑫 · 发表于 2012-10-16 19:53

各位高手，提问大家个我解决不了的问题，我已经把示例文件传到附件里了
我现在要把每个人的保险信息合并账户
一共五万多条记录要是手工更改的话，估计一个星期也弄不完
我想设计个数据透视表解决，也没找到头绪
看看哪位高手有好的方法啊，不胜感激啊
举个例子：1996年鲍华1月到3月的缴费基数相同，各个缴费比例相同的话，那么着三条记录就合并成一条记录，变成起月份199601，止月份199603，三条记录就合并成了一条记录了。

dsmch · 发表于 2012-10-16 20:10

本帖最后由 dsmch 于 2012-10-16 21:28 编辑

上传excel附件
楼主重新发帖地址：http://club.excelhome.net/thread-932164-1-1.html
链接地址中的附件有病毒，请下载7楼附件，病毒已经杀除。

许海鑫 · 发表于 2012-10-16 20:29

这个弄错了，附件丢了，不好意思，我又重新发了个帖子

乐铁松 · 发表于 2012-10-16 20:32

没看到附件呢。

乐铁松 · 发表于 2012-10-16 20:39

这应该是在办理养老保险转移时需要的吧？请将附件传上来。

dsmch · 发表于 2012-10-16 21:20

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

复制代码

dsmch · 发表于 2012-10-16 21:24

附件…………

许海鑫 · 发表于 2012-10-16 21:38

dsmch 发表于 2012-10-16 20:10
上传excel附件
楼主重新发帖地址：http://club.excelhome.net/thread-932164-1-1.html
链接地址中的附件有 ...

太感谢你了，高手，你太细心。

许海鑫 · 发表于 2012-10-16 21:39

dsmch 发表于 2012-10-16 21:20

高手，这是你编写的VBA 吗？

许海鑫 · 发表于 2012-10-16 21:56

dsmch 发表于 2012-10-16 21:20

高手，我对VBA一窍不通，希望你能给我讲讲这是什么呢？

		自动登录	找回密码
密码			免费注册

[求助] 关于养老保险账户合并的难题