合并并居中多行

Question

如何在Excel中合并和居中多行？

例如，我想合并并将行A1和A2，B1和B2，C1＆amp; C2，F1＆amp; F2和A3＆amp; A4，B3＆amp; B4，C3＆amp; C4 ... F3＆amp; F4等合并到A902＆amp; 903 .. F902..903

Answer 1

见下面的代码：

Sub SomeSub()

    Dim Range1 As Range
    'Looping through the rows steppin up by two each time
    For r = 1 To 902 Step 2

        'Looping through the Columns
        For col = 1 To 6

            'Setting the range for the two cells
            Set Range1 = Range(Cells(r, col), Cells(r + 1, col))
            'Merging the cells
            Range1.Merge
            'Setting horizontal alignment
            Range1.HorizontalAlignment = xlCenter

        Next col
    Next r

End Sub

请注意，该脚本将合并行901和902，这些行合并第1行和第2行，每次加2。如果要合并行903和904，则将902更改为904。

Answer 2

将单元格A1与A2合并，然后自动填充整个范围的格式（时间~5-7秒）