[已解决]关于数据合并问题

Gy奔跑吧小不点 · 发表于 2016-11-15 11:36

本帖最后由 Gy奔跑吧小不点于 2016-11-15 19:53 编辑

附件有多行数据，按每6行数据合并成一行数据的模式把多行数据处理完。详情看附件，再次拜谢。

最佳答案

su45

2016-11-15 19:39

数据合并.zip (12.37 KB, 下载次数: 7)

dsmch · 发表于 2016-11-15 13:23

Sub Macro1()
Dim arr, brr, d, i&, k, j%
Set d = CreateObject("scripting.dictionary")
r = [a:b].Find("*", searchdirection:=xlPrevious).Row
arr = Range("a1:b" & r)
ReDim brr(1 To 20000, 1 To 12)
For i = 1 To r - 5 Step 6
n = n + 1: s = 0
For j = 1 To 2
For k = i To i + 5
If Not d.exists(arr(k, j)) And arr(k, j) <> "" Then s = s + 1: brr(n, s) = arr(k, j): d(arr(k, j)) = ""
Next
Next
d.RemoveAll
Next
Range("u1").Resize(n, 12) = brr
End Sub

复制代码

su45 · 发表于 2016-11-15 13:35

数据合并.zip (9.72 KB, 下载次数: 4)

su45 · 发表于 2016-11-15 13:36

比2楼慢了！

Gy奔跑吧小不点 · 发表于 2016-11-15 18:36

dsmch 发表于 2016-11-15 13:23

发现一个问题，每6行为一組数据，但最后不足6行的话，就不会合并数据，希望把最后几行不足6行的数据也合并成一行，谢谢，详情见附件

Gy奔跑吧小不点 · 发表于 2016-11-15 18:38

su45 发表于 2016-11-15 13:35

发现一个问题，每6行为一組数据，但最后不足6行的话，就会出“下标越界”错误，希望能修复一下，谢谢，详情见附件

su45 · 发表于 2016-11-15 19:39

数据合并.zip (12.37 KB, 下载次数: 7)

Gy奔跑吧小不点 · 发表于 2016-11-15 19:52

su45 发表于 2016-11-15 19:39

完美，感谢帮助。

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