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
转载于:https://blog.51cto.com/mstudy/1658830