Sub 白色() For i = 2 To [b65536].End(3).Row If Cells(i, 1) = 0 Then Cells(i, 2).Font.ColorIndex = 2 NextEnd Sub
