版权声明:本文为博主原创文章,遵循 CC 4.0 BY-SA 版权协议,转载请附上原文出处链接和本声明。
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