如何簡化這程式

hong912

大大們, 安好,
小弟錄制了一個巨集, 但錄制出來的程式太長, 請教大大們, 如何把程式簡化, 感恩, 謝謝!!

Sub 清除工作表色彩()
'
' 清除工作表色彩 Macro
'

'
    Sheets("1月").Select
    Range("G4").Select
    Range("G4:AK20").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Range("G4").Select
    Sheets("2月").Select
    Range("G4:AK20").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Range("G4").Select
    Sheets("3月").Select
    Range("G4:AK20").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Range("G4").Select
    Sheets("4月").Select
    Range("G4:AK20").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Range("G4").Select
    Sheets("5月").Select
    Range("G4:AK20").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Range("G4").Select
    Sheets("6月").Select
    Range("G4:AK20").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Range("G4").Select
    Sheets("7月").Select
    Range("G4:AK20").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Range("G4").Select
    Sheets("8月").Select
    Range("G4:AK20").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Range("G4").Select
    Sheets("9月").Select
    Range("G4:AK20").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Range("G4").Select
    Sheets("10月").Select
    Range("G4:AK20").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Range("G4").Select
    Sheets("11月").Select
    ActiveWindow.SmallScroll
    Range("G4:AK20").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Range("G4").Select
    Sheets("12月").Select
    Range("G4:AK20").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Sheets("公眾假期").Select
    Range("A1").Select

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

複製代碼

hong912

回復 2# PKKO

謝謝指導, 感恩..