【VBA案例017】合并单元格

1
Sub union并集函数()
2

3
    Dim i
4
    Dim rng As Range
5

6
    Set rng = [a2]
7

8
    Application.DisplayAlerts = False
9
    For i = 2 To 20
10
        If Range("a" & i + 1) = Range("a" & i) Then
11
            Set rng = Union(rng, Range("a" & i + 1))
12
        Else
13
            rng.Merge
14
            Set rng = Range("a" & i + 1)
15
        End If
16
    Next i
17
    Application.DisplayAlerts = True
18

19
End Sub

1
Sub 循环数组()
2

3
    Dim i, j, ar
4
    Dim start_row, end_row
5

6
    ar = [a1:a20]
7
    start_row = 2
8

9
    Application.DisplayAlerts = False
10
    For i = 2 To UBound(ar)
11
        For j = i + 1 To UBound(ar)
12
            If ar(j, 1) = ar(i, 1) Then
13
                end_row = j
14
            Else
15
                end_row = j - 1
16
                Exit For
17
            End If
18
        Next j
19
        Range("a" & start_row & ":a" & end_row).Merge
20
        start_row = j
21
        i = start_row - 1
22
    Next i
23
    Application.DisplayAlerts = True
24

25
End Sub