[已解决]Excel合并单元格的数据拷贝求助

jk0932

如附件所示源数据要实现快速粘贴到结果数据有什么技巧方法吗？

最佳答案

月排行榜 / 总排行榜

26759761@qq.com

2015-3-18 18:20

1. Sub x()
   
2. Dim x, y
   
3. Cells.Copy Sheets("结果").[a1]: Sheets("结果").Select
   
4. For x = 3 To [a65500].End(3).Row Step 2
   
5. For y = 1 To 10
   
6.   Range(Cells(x, y), Cells(x + 1, y)).Merge
   
7. Next y
   
8. Next x
   
9. End Sub

复制代码

跳转到最佳答案楼层

26759761@qq.com

1. Sub x()
   
2. Dim x, y
   
3. Cells.Copy Sheets("结果").[a1]: Sheets("结果").Select
   
4. For x = 3 To [a65500].End(3).Row Step 2
   
5. For y = 1 To 10
   
6.   Range(Cells(x, y), Cells(x + 1, y)).Merge
   
7. Next y
   
8. Next x
   
9. End Sub

复制代码