程序调用宏（Macro）执行相同内容单元格合并

本实例是通过ABAP程序调用Macro合并A列相同内容的单元

Sub Macro1(a As Integer, b As Integer)
'
' macro1
'
' a start row b end low
'
'   Application.DisplayAlerts = False

    Dim i As Integer
    Dim first As Integer
    Dim last As Integer
    first = a
    For i = a To b Step 1
        If Worksheets("Sheet1").Range("A" & i) = Worksheets("Sheet1").Range("A" & i + 1) Then
        Else
            last = i
            Worksheets("Sheet1").Range("A" & first & ":A" & last).Select
            With Selection
            .MergeCells = True
            End With
            first = i + 1
        End If
    Next
    
'   Application.DisplayAlerts = True
End Sub

调用Macro之前

调用之后

调用程序段

其中'模块2.Macro1' 表示调用Macro的位置（模块2）和名称（Macro1）