如何依据个人编号合并连续的年份呀

伍月焱马兔 · 发表于 2019-9-7 08:24

如何依据个人编号合并连续的年份呀

opel-wong · 发表于 2019-9-7 08:34

怎么样合并？规则是什么？
请模拟数据示例效果！

伍月焱马兔 · 发表于 2019-9-7 09:04

opel-wong 发表于 2019-9-7 08:34
怎么样合并？规则是什么？
请模拟数据示例效果！

如此附件效果

伍月焱马兔 · 发表于 2019-9-7 09:15

本帖最后由伍月焱马兔于 2019-9-7 09:19 编辑

如个人编号 123456 姓名张三开始时间200705，结束时间200712 ，开始时间200805，结束时间200812，开始时间200905，结束时间200912，合并为 200705，结束时间200905 同一个编码（同一人）如有可以连续的年月就连续年份，如不能连续就直接提取过来开始时间201101，结束时间201112，开始时间201301，结束时间201312

deadzlq · 发表于 2019-9-7 11:15

PQ参考解法

伍月焱马兔 · 发表于 2019-9-7 18:40

本帖最后由伍月焱马兔于 2019-9-7 21:18 编辑

deadzlq 发表于 2019-9-7 11:15
PQ参考解法

麻烦老师将带VBA代码的附件上传！非常感谢！！！

伍月焱马兔 · 发表于 2019-9-7 21:22

本帖最后由伍月焱马兔于 2019-9-7 23:46 编辑

deadzlq 发表于 2019-9-7 11:15
PQ参考解法

麻烦老师将带VBA代码的附件上传！非常感谢！！！

月关 · 发表于 2019-9-7 22:09

刚开始学Ado，暂时处理不了带星号的字段。
去掉星号，把4标题改为个人编号姓名开始时间结束时间，可以用下面的代码：

Sub sqltest()
Set cnn = CreateObject("adodb.connection")
cnn.Open = "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & ThisWorkbook.FullName
Sql = "select 个人编号,姓名,min(开始时间) as 开始时间,max(结束时间) as 结束时间 from [数据$] group by 个人编号,姓名"
Set rst = cnn.Execute(Sql)
For i = 0 To rst.Fields.Count - 1
Cells(1, 8 + i) = rst.Fields(i).Name
Next
[h2].CopyFromRecordset rst

复制代码

依据个人编号合并连续的年份.rar (17.96 KB, 下载次数: 9)

月关 · 发表于 2019-9-7 22:11

第3句，cnn.Open 后面多了个 = ，竟然无所谓。。。。。

月关 · 发表于 2019-9-7 22:25

躺被窝里才想起来，如果非要用原来的字段，完全可以不处理，数据下移一行，最后把原字段复制过去就行。无关紧要，就这样吧

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

[求助] 如何依据个人编号合并连续的年份呀

最新热点 /1