利用VBA来实现单元格的合并！

Long_III

以下是引用plxmm在2005-11-16 14:10:31的发言：

呵呵，Long_III GG谦虚啊。偶献丑了。不好的地方请指教的。

Sub Merge_Range() Dim j% For j = 15 To 2 Step -1 If Cells(j, 1) = Cells(j - 1, 1) Then Application.DisplayAlerts = False Range(Cells(j - 1, 1), Cells(j, 1)).Merge End If Next j End Sub

关于此代码，是很简单好理解，但是，每次不同就合并一次，如果数据多一点，这样的合并效率就很低了。我用了一个变量来记录不同处，这样需要合并的部分才合并，相对会较好一点。

lotustower

由上至下

Dim irow%, j%, k% irow = [a65536].End(xlUp).Row: j = 1 For k = 2 To irow Do While Cells(k, 1).Offset(j, 0) = Cells(k, 1) j = j + 1 Loop Application.DisplayAlerts = False Range(Cells(k, 1), Cells(k, 1).Offset(j - 1, 0)).Merge k = k + j - 1 j = 1 Next

Long_III

lotustower妹妹的方法也很好！直接循环的

我修改了你的代码的一点点，你可以看看

Sub xxx() Dim irow%, j%, k%

Application.DisplayAlerts = False irow = [a65536].End(xlUp).Row: j = 1 For k = 2 To irow Do While Cells(k, 1).Offset(j, 0) = Cells(k, 1) j = j + 1 Loop If j > 1 Then Cells(k, 1).Resize(j, 1).Merge k = k + j - 1 j = 1 End If Next End Sub

紫蝶儿菲菲

这么多的解法啊，学习了。

Long_III

对于20楼的答案其实也可以正着循环，有兴趣的朋友可以改改

monkeyge

非常感谢大家的帮助！从各种答案中可以学到很多解决问题的思路和方法，多谢大家！

okmhy

我是一个菜鸟，学习了，很多地方还有待研究，谢谢了！

shengjiri

啥也不说了，就想找个简单的排序的例子，却搜出了这么好的帖子，学习了

fkeplmm

一种效果，多种解决方案，妙妙呀，

shengjiri

程序是很好，但是各位老大能不能写的规范点，分行写好不好啊，要不然好难读的哈

谢谢了