Option ExplicitSub 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 WithEnd Sub