[已解决]请教合并单元格的vba代码

beigang · 发表于 2012-3-27 12:37

新手向各位前辈请教合并单元格的vba代码

最佳答案

本地和尚

2012-3-27 12:45

合并a1:b2单元格：
Range("A1:B2").Select
With Selection
      .HorizontalAlignment = xlGeneral
      .VerticalAlignment = xlCenter
      .WrapText = False
      .Orientation = 0
      .AddIndent = False
      .IndentLevel = 0
      .ShrinkToFit = False
      .ReadingOrder = xlContext
      .MergeCells = True
End With
End Sub

跳转到最佳答案楼层

本地和尚 · 发表于 2012-3-27 12:45

合并a1:b2单元格：
Range("A1:B2").Select
With Selection
      .HorizontalAlignment = xlGeneral
      .VerticalAlignment = xlCenter
      .WrapText = False
      .Orientation = 0
      .AddIndent = False
      .IndentLevel = 0
      .ShrinkToFit = False
      .ReadingOrder = xlContext
      .MergeCells = True
End With
End Sub

		自动登录	找回密码
密码			注册