Range("A1:B4").Select
With Selection
.MergeCells = True
End With
任意多个对象都有.MergeCells的属性。
比如想把第一行合并。
With Rows(1)
.MergeCells = True
End With
To see a world in a grain of sand.
And a heaven in a wild flower
Hold infinity in the palm of your hand.
And eternity in an hour
一花一世界
一沙一天堂
掌中握无限
霎那成永恒