合并单元格的相关问题

nothingwmm

兼回答 ：合并单元格的相关问题，（代码也在原帖中发布）
http://www.excelpx.com/forum.php?mod=viewthread&tid=157181&fromuid=420007

1. Sub Macro2()
   
2. Dim i As Integer
   
3. With Selection '
   
4.    .UnMerge
   
5.    For i = 1 To .Columns.Count
   
6.    Cells(2, i) = Cells(1, i)
   
7.    Cells(1, i) = ""
   
8. Next
   
9. End With
   
10. End Sub

复制代码

迎客松

最好把代码完整地贴出来！

nothingwmm

迎客松 发表于 2011-1-26 19:52
最好把代码完整地贴出来！

代码放在原帖中了，这里也放？

迎客松

nothingwmm 发表于 2011-1-26 19:55
代码放在原帖中了，这里也放？

个人认为应该放!因你单独开贴了！
省得别人再转到其它贴找代码。你说是吧？呵呵，个人意见。