vb怎么给excel合并单元格？

[hillskysea]

如题，我想把a1到d2的单元格合并，并输入一些文字，翻了书没找到哪有vba合并单元格的内容，大家帮帮忙啊，我新手

[goosen]

Sub Macro1()
'
' Macro1 Macro
' 宏由 wwj 录制，时间: 2009-5-14
'
Range("A1:D2").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Merge
Range("A1:D2").Select
ActiveCell.FormulaR1C1 = "A"
Range("E1").Select
End Sub

[hillskysea]

十分感谢，已解决，原来如此，书上找不到，怪了。。。