PKKO

回復 1# hong912

試試看

1. Sub TEST()
   
2.     For I = 1 To 12 '一月跑到12月
   
3.         With Sheets(I & "月").Range("G4:AK20").Interior '用i當作月份跑回圈,後面範圍固定
   
4.             .Pattern = xlNone '清除填滿的顏色
   
5.             .TintAndShade = 0
   
6.             .PatternTintAndShade = 0
   
7.         End With
   
8.     Next
   
9. 
   
10. End Sub

複製代碼