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