Sub 文字列で認識されている数字を数値に変換して計算できるようにする() 文字列で認識されてしまっている数字セル = Range("A1") 数値化完了した値 = Val(文字列で認識されてしまっている数字セル) End Sub