在EXCEL里，如何把相同行里的的单元格合并？

想做NO.1

如下图，我想把“列一”中相当编号的单元格合并，这几行后面相同的单元格也随之合并，就是以“列一”中的编号为标准进行列二，列三(或者更多)的单元格的合并。求哥哥弟弟姐姐妹妹们帮帮忙，多谢哈！！！

想做NO.1

沉了啊，有木有大侠有现成的代码提供一份哇，灰常感谢呀{:soso_e150:}

灰太郎

1111111111111111111111111111111

roych

把这段代码放在需要合并的工作表级别的模块中（例如，sheet1），选择区域，然后运行宏即可。

1. Sub mergecells()
   
2.     Application.ScreenUpdating = False
   
3.     Application.DisplayAlerts = False
   
4.     Dim cell   As Range
   
5.     Dim i, b   As Integer
   
6.     i = Selection.Rows.count - 1
   
7.     For b = 1 To i
   
8.         With ActiveCell
   
9.             .Select
   
10.             If .Offset(1, 0) = .Value Then
    
11.                 Range(ActiveCell, .Offset(1, 0)).Select
    
12.                 Selection.mergecells = True
    
13.                 .HorizontalAlignment = xlCenter
    
14.                 .VerticalAlignment = xlCenter
    
15.             Else
    
16.                 .Offset(1, 0).Select
    
17.             End If
    
18.         End With
    
19.     Next
    
20.     Application.ScreenUpdating = True
    
21.     Application.DisplayAlerts = True
    
22. End Sub

复制代码

叶海峰

这段代码是支持多列操作的.

Sub mergecells()     '自动合并单元格
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Dim str    As String
    Dim i, b, j, c As Integer

    i = Selection.Rows.count - 1
    j = Selection.Columns.count
    For c = 1 To j
        str = ActiveCell.Address
        For b = 1 To i
            With ActiveCell
                .Select
                If .Offset(1, 0) = .Value Then
                    Range(ActiveCell, .Offset(1, 0)).Select
                    Selection.mergecells = True
                    .HorizontalAlignment = xlCenter
                    .VerticalAlignment = xlCenter
                Else
                    .Offset(1, 0).Select
                End If
            End With

        Next
        Range(str).Offset(0, 1).Select
    Next
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
End Sub

pureshadow

又代码，呵呵。。。。。
Excel技巧之合并单元格系列：不规则区域合并单元格的批量操作：
http://support.microsoft.com/kb/2607855/zh-cn

想做NO.1

谢谢管理大人{:soso_e163:}

想做NO.1

roych 发表于 2012-9-12 20:26
把这段代码放在需要合并的工作表级别的模块中（例如，sheet1），选择区域，然后运行宏即可。

多谢版主哥哥^_^