Excel VBA自动给单元格填色

要求：一个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

 

posted @ 2017-08-01 16:43  Willa.Wang  阅读(1672)  评论(0)  编辑  收藏  举报