Excel VBA自动给单元格填色

要求：一个Excel文件中，有多个sheet，每个sheet中都有特定范围的单元格需要填充颜色，手动填充太麻烦，下面是VBA实现的自动填色

Sub incolor()

    Dim i, j, sheetnum, rownum
    
    '获取当前文档中的sheet个数
    sheetnum = Worksheets.Count
    
    '从第i个sheet开始循环到最后一个sheet
    For i = 25 To sheetnum
    
        '选中第i个sheet
        Worksheets(i).Select
        
        '获取第i个sheet中有数据的最后一行的行号
        rownum = Worksheets(i).Range("A1048576").End(xlUp).Row
        
        '从第j行开始循环到有数据的最后一行
        For j = 10 To rownum
            
            '从第k列开始循环到第九列
            For k = 1 To 9
                
                '将第i个sheet中的第j行，第k列的单元格填充为RGB(255,255,204)色
                Worksheets(i).Cells(j, k).Interior.Color = RGB(255, 255, 204)
                                
            Next
        
        Next
    
    Next

End Sub