請不要叫我大大,我不是專門寫程式的,VBA的變數宣告有些怪,沒法一次宣告同樣的性質

Sub test()
Dim i As Integer, j As Integer

For i = 1 To 10 '假設資料10筆,並存於同一worksheet
For j = 2 To 23
If j <> 14 And j <> 15 Then
If ActiveSheet.Cells(i, j).Font.ColorIndex = 3 Then
ActiveSheet.Cells(i, 1).Value = 1
Exit For
Else
ActiveSheet.Cells(i, 1).Value = ""
End If
End If
Next j
Next i

End Sub