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