新建宏,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,