[分享]同列合并通用宏

guangyp · 发表于 2008-1-23 13:17

在06年12月份曾发过一贴：

[分享]使同一列中的相同内容单元格合并起来

上贴是使用基础操作来完成的，但如果这类工作比较多的话，用上贴的方法还是很麻烦的，昨天刚好同事有这样的需求，所以写了个小代码的加载宏，一起与大家分享！ IiqD7XpH.rar (7.12 KB, 下载次数: 457)

[此贴子已经被作者于2008-1-23 13:36:32编辑过]

liujy · 发表于 2008-1-23 13:26

谢谢guangyp兄分享！

zz5151353 · 发表于 2008-1-23 16:34

謝謝版主提供分享 !!!
[em23][em23][em23]
[em24][em24][em24]
[em27][em27][em27]

wang181 · 发表于 2008-2-3 23:01

errerere

winniegreen · 发表于 2008-2-23 08:34

谢谢！

XUZHANCHENG · 发表于 2008-2-23 17:29

学习了

yoka · 发表于 2008-2-23 17:32

謝謝版主提供分享 !!!

jyw199765 · 发表于 2008-2-23 17:32

多谢分享

aichong · 发表于 2008-5-30 17:40

谢谢guangyp兄分享！

andysky · 发表于 2008-5-30 18:11

修改一下：

1.不需要拖动选择区域（当列中行数太多且中间有空白区时很麻烦），选择当前列即可；

2.执行完成后恢复程序默认设置（否则有负面影响）。

Sub 合并()
Application.DisplayAlerts = False
Application.ScreenUpdating = False
r = ActiveSheet.UsedRange.Rows.Count
c = ActiveCell.Column
For j = 1 To r
    i = i + 1
    If Cells(j + 1, c) <> Cells(j, c) Then
        Range(Cells(j - i + 1, c), Cells(j, c)).Merge
        i = 0
    End If
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

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

[分享]同列合并通用宏

评分