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