要求：一個Excel檔案中，有多個sheet，每個sheet中都有特定範圍的單元格需要填充顏色，手動填充太麻煩，下面是VBA實現的自動填色

 1 Sub incolor()
 2 
 3     Dim i, j, sheetnum, rownum
 4     
 5     '獲取當前文件中的sheet個數
 6     sheetnum = Worksheets.Count
 7     
 8     '從第i個sheet開始迴圈到最後一個sheet
 9     For i = 25 To sheetnum
10     
11         '選中第i個sheet
12         Worksheets(i).Select
 
13         
14         '獲取第i個sheet中有資料的最後一行的行號
15         rownum = Worksheets(i).Range("A1048576").End(xlUp).Row
16         
17         '從第j行開始迴圈到有資料的最後一行
18         For j = 10 To rownum
19             
20             '從第k列開始迴圈到第九列
21             For k = 1 To 9
22                 
23                 '將第i個sheet中的第j行，第k列的單元格填充為RGB(255,255,204)色
 

24                 Worksheets(i).Cells(j, k).Interior.Color = RGB(255, 255, 204)
25                                 
26             Next
27         
28         Next
29     
30     Next
31 
32 End Sub