【Excel】VBAマクロで文字列を数値に変換（一括、列方向、範囲指定、三桁ごとにカンマ入りの金額に【Val関数、Replace関数】

Sub Henkan_A_Retsu()
    Dim LastRow As Long
    Dim i As Long
    Dim mojiretu As String
    Dim suuchi As Double

    With ThisWorkbook.Sheets("Sheet1")
        LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row

        For i = 1 To LastRow
            mojiretu = .Cells(i, 1).Value
            suuchi = Val(mojiretu)
            .Cells(i, 1).Value = suuchi
        Next i
    End With
End Sub

Sub Henkan_B_Retsu_Kanma()
    Dim LastRow As Long
    Dim i As Long
    Dim mojiretu As String
    Dim suuchi As Double
    Dim kanmaSuuchi As String

    With ThisWorkbook.Sheets("Sheet1")
        LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row

        For i = 1 To LastRow
            mojiretu = .Cells(i, 1).Value
            suuchi = Val(Replace(mojiretu, ",", ""))
            kanmaSuuchi = Format(suuchi, "#,##0")
            .Cells(i, 2).Value = kanmaSuuchi
        Next i
    End With
End Sub

Sub Henkan_Hani()
    Dim RangeStart As Long
    Dim RangeEnd As Long
    Dim i As Long
    Dim mojiretu As String
    Dim suuchi As Double

    RangeStart = 2 '開始行
    RangeEnd = 10 '終了行

    With ThisWorkbook.Sheets("Sheet1")
        For i = RangeStart To RangeEnd
            mojiretu = .Cells(i, 1).Value
            suuchi = Val(mojiretu)
            .Cells(i, 1).Value = suuchi
        Next i
    End With
End Sub