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

monkeyge · 发表于 2005-11-16 13:52

利用VBA来实现单元格的合并！（我查了以前的帖子，没有发现我要找的内容，请高手指教）

cnuJ3nvg.rar (4.23 KB, 下载次数: 231)

Long_III · 发表于 2005-11-16 13:57

各位新朋友可以来试试这个，danielcm兄，你也可以看看，用一个循环做哦

明天我总结！

plxmm · 发表于 2005-11-16 13:59

不知道是否适合你的要求：http://club.excelhome.net/viewthread.php?tid=131355

gdjxwz · 发表于 2005-11-16 13:59

想要代码？录制一下不就可以了吗？

最多再加一个循环（从第一行到最后一行），一个判断（如果下一行单元格的值与上一行相同，则合并单元格）

Long_III · 发表于 2005-11-16 14:01

plxmm，你做一个呗，让大家学习学习

plxmm · 发表于 2005-11-16 14:10

呵呵，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

gdjxwz · 发表于 2005-11-16 14:18

Sub aaaa() Dim zhs As Long, zls As Long, ksh As Long, jsh As Long Dim i As Long, j As Long Dim ks As Boolean, Js As Boolean zhs = ActiveSheet.UsedRange.Rows.Count zls = ActiveSheet.UsedRange.Columns.Count Application.DisplayAlerts = False For j = 1 To zls ks = False Js = False For i = 3 To zhs + 1 If Cells(i, j) = Cells(i - 1, j) Then If Not ks Then ksh = i - 1 ks = True Else If ks Then Js = True End If If ks And Js Then Range(Cells(ksh, j), Cells(i - 1, j)).Select Selection.MergeCells = True ks = False Js = False End If Next i Next j Application.DisplayAlerts = True End Sub

[此贴子已经被作者于2005-11-16 14:26:28编辑过]

gdjxwz · 发表于 2005-11-16 14:23

呵呵，还是PLXMM高啊，从后向前判断，呵呵，妙！

我是贻笑大方啊，呵呵。

[此贴子已经被作者于2005-11-16 14:29:53编辑过]

plxmm · 发表于 2005-11-16 14:25

gdjxwz GG 果酱啊。都是从这样走过来的呢。还等着 Long_III 的总结啊。

monkeyge · 发表于 2005-11-16 14:25

以下是引用gdjxwz在2005-11-16 13:59:14的发言：
想要代码？录制一下不就可以了吗？

最多再加一个循环（从第一行到最后一行），一个判断（如果下一行单元格的值与上一行相同，则合并单元格）

这样的话，好像合并的只是相邻的两个单元格，我试过的！

我考虑用联合的方法，但是还没有试验好，请高手指点一下！

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