双色球统计按照经验公式计算求加自动更新和求预测数字与开奖号码一样的自动标记为h...

双色球统计按照经验公式计算求加自动更新和求预测数字与开奖号码一样的自动标记为红色！自己加了VBA程序，AI写的感觉但是运行有问题，就是不知道问题出现在哪里？自动更新不知道怎么加
Sub 标记相同数字为红色()
Dim ws As Worksheet
Dim lastRow As Long, lastCol As Long
Dim rng As Range, cell As Range
Dim cellColumn As Range

Set ws = ActiveSheet ' 或者根据你的具体需求设置worksheet

' 获取最后行和最后列
lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
lastCol = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column

' 循环遍历每行
For Each cell In ws.Range("C6:C" & lastRow) ' 遍历C列，你可以根据需要修改这里

' 遍历每行对应的列
For Each cellColumn In ws.Range("K" & cell.Row & ":AB" & cell.Row) ' 修改列的范围为 K 到 AB，你可以根据需要修改这里
' 检查是否与对应行的数字相同
If cell.Value = cellColumn.Value Then
' 找到匹配的单元格，设置为红色
Set rng = ws.Range(cell, cellColumn)
rng.Interior.Color = VBA.RGB(255, 0, 0) ' 红色
Exit For ' 找到一个匹配就退出内层循环
End If
Next cellColumn

Next cell
End Sub

开奖号码区域是C6:H6，预测范围是K6:AB6，求高手指点！