IsEmptyという関数を使います。
Sub セルが空なら()
If IsEmpty(Cells(2, 1).Value) = True Then
Cells(2, 1).Interior.ColorIndex = 6
End If
End Sub
コメントする