VBA设置单元格格式

Option Explicit
Sub setFormat()
    Dim SelectionCell As Range
    Set SelectionCell = Worksheets("Sheet1").Range("A1:D4")
    With SelectionCell
         .Borders.Weight = 4
         .Font.Size = 10
         .Font.Name = "宋体"
         .Interior.ColorIndex = 34
    End With
End Sub

VBA设置单元格格式

原文：http://mstudy.blog.51cto.com/3203813/1658830