VBA-单元格格式设置

版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。

本文链接： https://blog.csdn.net/qq_44390640/article/details/99957744

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