[已解决]给某个单元格区域合并居中并添加边框线的代码怎么写

金樽空对月

比如用代码给单元格区域A1到C4添加边框线，然后合并居中；

最佳答案

月排行榜 / 总排行榜

zjdh

2015-9-7 20:59

Sub Macro1()
    With Range("A1:D4")
        .Merge
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .Borders.LineStyle = 1
    End With
End Sub

跳转到最佳答案楼层

zjdh

Sub Macro1()
    With Range("A1:D4")
        .Merge
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .Borders.LineStyle = 1
    End With
End Sub

Hsiao

1. Sub test()
   
2.     With [a1:c4]
   
3.              .Merge
   
4.             .HorizontalAlignment = xlCenter
   
5.             .Borders.LineStyle = xlContinuous
   
6.     End With
   
7. End Sub
   

复制代码

zjdh

若要粗线条则插入一句
.Borders.Weight = xlMedium

lmze2000

1. Sub Ax()
   
2.     With Range("a1:c4")
   
3.         .Merge
   
4.         .Borders.LineStyle = 1
   
5.         .VerticalAlignment = 2
   
6.         .HorizontalAlignment = 3
   
7.     End With
   
8. End Sub
   

复制代码