VBA-单元格格式设置

SUB 格式()
Worksheets("申报表" & i).Range("A1:I6").Interior.ColorIndex = 2
 Worksheets("申报表" & i).Range("A" & O + 4 & " :J" & O + 4).Borders.LineStyle = xlContinuous
  Worksheets("申报表" & i).Range("A" & O + 4 & " :J" & O + 4).HorizontalAlignment = Excel.xlCenter
  Worksheets("申报表" & i).Range("A" & O + 4 & " :J" & O + 4).Font.Name = "Arial"
  Worksheets("申报表" & i).Range("A" & O + 4 & " :J" & O + 4).Font.Size = "12"
  END SUB