実務では、表のなか数字を入れてほしかったのに、単位を含めていれてくれることがあったりします。また、システムから出力された表も、数字に見えるが、実際左上に緑の三角が付いている文字列となっていることは往々あります。今日は、文字列を一気に数字(数値)に変換することを見ていきます。

 

文字列を数値に変換する

 

Sub test()
   ’ 数値変換
   
   Dim i As Long
   Dim MaxR As Long
   MaxR = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row

     For i = 2 To MaxR
    
        Cells(i, 2) = Val(Cells(i, 1))
    Next i

End Sub

 

 

実行結果
 

 

 

― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじ へ戻る 

 

関連記事