同一个人的数据合并在一起

wangweihebtu · 发表于 2018-9-13 09:02

有很多老师属于跨学科任课，请教如何合并在一起？谢谢

chxw68 · 发表于 2018-9-13 09:20

Sub test()
Dim r%, i%
Dim arr, brr
Dim d As Object
Set d = CreateObject("scripting.dictionary")
With Worksheets("sheet1")
r = .Cells(.Rows.Count, 1).End(xlUp).Row
arr = .Range("a2:e" & r)
For i = 1 To UBound(arr)
If Not d.exists(arr(i, 3)) Then
ReDim brr(1 To 4)
For j = 1 To 4
brr(j) = arr(i, j + 1)
Next
Else
brr = d(arr(i, 3))
brr(1) = brr(1) & "/" & arr(i, 2)
brr(3) = brr(3) & "/" & arr(i, 4)
brr(4) = brr(4) & "/" & arr(i, 4)
End If
d(arr(i, 3)) = brr
Next
.Range("i2").Resize(d.Count, UBound(brr)) = Application.Transpose(Application.Transpose(d.items))
End With
End Sub

复制代码

chxw68 · 发表于 2018-9-13 09:21

详见附件。

mikezhan · 发表于 2018-9-13 09:38

提示: 作者被禁止或删除内容自动屏蔽

chxw68 · 发表于 2018-9-13 09:45

mikezhan 发表于 2018-9-13 09:38
感觉我这个，比楼上老师的运用要经典一点。：）

Sub test()

向你学习！

mikezhan · 发表于 2018-9-13 10:28

提示: 作者被禁止或删除内容自动屏蔽

chxw68 · 发表于 2018-9-13 10:38

点击红框里的按钮粘贴代码。

simic1989 · 发表于 2018-9-13 11:29

chxw68 发表于 2018-9-13 09:21
详见附件。

老师您好，上次我也问过一个类似楼主的问题，经过您的指点我已经掌握了原理。
刚才自己写了一下，发现"/"被默认成了日期的符号，请问如何解决

chxw68 · 发表于 2018-9-13 11:43

simic1989 发表于 2018-9-13 11:29
老师您好，上次我也问过一个类似楼主的问题，经过您的指点我已经掌握了原理。
刚才自己写了一下，发现"/ ...

写入数据之前把单元格格式设置成文本格式。

chxw68 · 发表于 2018-9-13 11:46

详见附件。

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

[求助] 同一个人的数据合并在一起

mikezhan mikezhan 当前离线性别保密 UID 736941 阅读权限 0 注册时间 2009-3-7 在线时间小时最后登录 1970-1-1 积分 975 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2018-9-13 09:38 \| 显示全部楼层 [广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★免费下载 ★ ★ 使用帮助★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报

mikezhan mikezhan 当前离线性别保密 UID 736941 阅读权限 0 注册时间 2009-3-7 在线时间小时最后登录 1970-1-1 积分 975 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2018-9-13 10:28 \| 显示全部楼层 [广告] ★会Excel,就能做支持PC、手机、Web、App、Windows、安卓、IOS、Linux信息一体化的各种管理系统 ★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报