在前面数据不变的情况下怎么批量把一列的数据放在另一列下方

笛莎的天明

如题：
前面几列数据是合并单元格的，后面两列数据与前面合并的单元格对应，怎么批量把后面两列的数据变成一列，并且保持前面合并单元格的数据一致。
可能描述的不是很清楚，上张图：


原始数据表格（数据有很多，只列举了一部分）
数据.rar (9.57 KB, 下载次数: 2)

2017-7-21 10:25 上传

点击文件名下载附件

笛莎的天明

有木有大神来救救场

笛莎的天明

会了，哈哈，搞定了，谢谢各位大神

jiangxiaoyun

1. Sub CAT()
   
2.     Dim arr, r, brr(1 To 50000, 1 To 5)
   
3.     r = [a1024768].End(3).Row + 7
   
4.     arr = Range("a5:f" & r)
   
5.     For i = 1 To UBound(arr) Step 8
   
6.         t = i
   
7.         For m = 5 To 6
   
8.             For n = 0 To 7
   
9.                 If arr(i + n, m) <> "" Then
   
10.                     k = k + 1
    
11.                     brr(k, 1) = arr(t, 1)
    
12.                     brr(k, 2) = arr(t, 2)
    
13.                     brr(k, 3) = arr(t, 3)
    
14.                     brr(k, 4) = arr(t, 4)
    
15.                     brr(k, 5) = arr(i + n, m)
    
16.                 End If
    
17.             Next
    
18.         Next
    
19.     Next
    
20.     [h5:L55555] = ""
    
21.     [h5].Resize(k, 5) = brr
    
22. End Sub

复制代码

jiangxiaoyun

数据.zip (18.58 KB, 下载次数: 1)

2017-7-21 11:14 上传

点击文件名下载附件