如何修改VBA代码实现从I4到表格末行的循环着色？

现有VBA代码仅能为I4、J4单元格根据对应行的RGB值着色，并通过BorW函数设置适配的黑白字体。需要修改代码，实现从第4行开始，批量处理到表格最后一行的I、J列单元格。

修改后的完整代码 #

Sub MasterColourBasic()
    Dim WB As ThisWorkbook
    Dim ES As Worksheet
    Dim lastRow As Long
    Dim currentRow As Long
    Dim lngHomeColor As Long
    Dim lngAwayColor As Long
    
    Set WB = ThisWorkbook
    Set ES = ActiveSheet
    ' 获取数据最后一行（假设A列为数据主列，可根据实际情况修改列标）
    lastRow = ES.Cells(ES.Rows.Count, "A").End(xlUp).Row
    
    ' 循环处理从第4行到最后一行的单元格
    For currentRow = 4 To lastRow
        ' 读取当前行Q、R、S列的RGB值，设置I列单元格底色
        lngHomeColor = RGB(ES.Cells(currentRow, 17), ES.Cells(currentRow, 18), ES.Cells(currentRow, 19))
        With ES.Cells(currentRow, "I").Interior
            .Color = lngHomeColor
            WB.Colors(.ColorIndex) = lngHomeColor
        End With
        
        ' 读取当前行T、U、V列的RGB值，设置J列单元格底色
        lngAwayColor = RGB(ES.Cells(currentRow, 20), ES.Cells(currentRow, 21), ES.Cells(currentRow, 22))
        With ES.Cells(currentRow, "J").Interior
            .Color = lngAwayColor
            WB.Colors(.ColorIndex) = lngAwayColor
        End With
    Next currentRow
    
    ' 批量设置I、J列的字体颜色
    BasicSetFontColor lastRow
End Sub

Sub BasicSetFontColor(lastRow As Long)
    Dim Cell As Range
    Dim targetRange As Range
    ' 设置需要处理的范围：从I4到J[最后一行]
    Set targetRange = ActiveSheet.Range("I4:J" & lastRow)
    
    For Each Cell In targetRange
        Cell.Font.Color = BorW(Cell.Interior.Color)
    Next Cell
End Sub

Function BorW(RGB As Long) As Long
    Dim R As Integer, G As Integer, B As Integer
    R = (RGB And &HFF)
    G = (RGB And &HFF00&) / 256
    B = (RGB And &HFF0000) / 65536
    BorW = vbWhite
    ' 根据亮度公式判断字体颜色，确保可读性
    If R * 0.3 + G * 0.59 + B * 0.11 > 128 Then BorW = vbBlack
End Function

关键修改说明 #

• 定位最后一行：使用ES.Cells(ES.Rows.Count, "A").End(xlUp).Row获取数据的最后一行，这里默认A列为数据主列（包含连续数据），如果实际数据主列不是A，替换成对应列标即可。
• 循环遍历处理：新增currentRow变量，从第4行遍历到最后一行，逐行读取对应列的RGB值，分别设置I、J列的单元格底色。
• 整合冗余逻辑：将原有的BasicHome和BasicAway子过程的代码整合到主循环中，减少重复代码，提升维护效率。
• 动态字体处理范围：修改BasicSetFontColor子过程，接收最后一行参数，动态生成需要处理的单元格范围，避免硬编码固定单元格。
• 明确对象引用：所有单元格操作都指定ES工作表对象，避免因切换工作表导致的错误。

内容的提问来源于stack exchange，提问作者ffc2004