用Excel中的宏获取VBA中的代码。

新建宏，ALT+F11，查看宏的原代码。

已单元格合并，自动换行，自动行高为例子：
工具 -> 宏 - > 录制新宏
操作Excel，设置表格属性，单元格合并，自动换行，最合适行高
停止宏录制

ALT + F11
VBAProject(Book1) -> 模块 -> 模块1
代码如下：
Sub Macro2()
'
' Macro2 Macro
' 宏由 abc 录制，时间: 2007-12-3
'
Columns("A:A").Select
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlCenter
.WrapText = True //自动换行
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True //合并单元格
End With
Selection.Rows.AutoFit //自适应行高
End Sub

在Delphi中的代码：
procedure MergeCells(AFirstRow, AFirstCol,