本实例是通过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)