[已解决]如何把相同的班级合并单元格

liudanhaha · 发表于 2009-11-14 22:47

vFfztZSt.rar (1.6 KB, 下载次数: 0)

yaoxuejian · 发表于 2009-11-14 23:01

这个最佳答案由 yaoxuejian 给出，感谢 yaoxuejian 的回答。

单击隐藏图章

如何把相同的班级合并单元格

君柳 · 发表于 2009-11-14 23:42

如何把相同的班级合并单元格

vgnhb7 · 发表于 2009-11-15 03:08

提示: 作者被禁止或删除内容自动屏蔽

zjxia889 · 发表于 2009-11-15 15:23

Sub 合并单元格() '对选取的单元进行相同项合并
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    On Error Resume Next
    With Selection
        For I = .Count To 1 Step -1
            If .Cells(I) = .Cells(I - 1) And .Cells(I) <> "" Then
                Range(.Cells(I), .Cells(I - 1)).Merge
            End If
        Next I
        .VerticalAlignment = xlCenter '上下居中
    End With
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub

蒸蒸日上 · 发表于 2009-11-15 15:26

哦,这么多学习方法呀,学习......

liudanhaha · 发表于 2009-11-16 21:12

呵呵呵，谢谢啦。

liudanhaha · 发表于 2009-11-16 21:12

谢啦。

zm_2613 · 发表于 2009-11-17 19:32

过来学习的

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

vgnhb7 vgnhb7 当前离线积分 18 IP卡狗仔卡	发表于 2009-11-15 03:08 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽
vgnhb7 vgnhb7 当前离线积分 18 IP卡狗仔卡
	回复使用道具举报显身卡