怎么用VBA进行格式设置呢

roych

1. Sub test()
   
2.     Dim i As Long
   
3.     Dim j As Long
   
4.     For i = 1 To 17
   
5.         j = i Mod 4
   
6.         With Sheets(1).Range("A2:H2").Offset(i, 0)
   
7.             Select Case j
   
8.                 Case Is = 1
   
9.                     .Font.Color = vbRed
   
10.                 Case Is = 2
    
11.                     .Font.Bold = True
    
12.                     .Font.Name = "隶书"
    
13.                 Case Is = 3
    
14.                     .Font.Italic = True
    
15.                 Case Is = 0
    
16.                     .Interior.Color = vbYellow
    
17.             End Select
    
18.         End With
    
19.     Next
    
20. End Sub
    

复制代码

代码已修正。