要求:一个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 sheetnum10 11 '选中第i个sheet12 Worksheets(i).Select13 14 '获取第i个sheet中有数据的最后一行的行号15 rownum = Worksheets(i).Range("A1048576").End(xlUp).Row16 17 '从第j行开始循环到有数据的最后一行18 For j = 10 To rownum19 20 '从第k列开始循环到第九列21 For k = 1 To 922 23 '将第i个sheet中的第j行,第k列的单元格填充为RGB(255,255,204)色24 Worksheets(i).Cells(j, k).Interior.Color = RGB(255, 255, 204)25 26 Next27 28 Next29 30 Next31 32 End Sub