列のデータ型をテキストから数値に変更する

Question

列のデータ型をテキストから数値に更新する必要があります。これを使用してさらに計算を行うことができます。以下のコードは私のために働いていません。この問題の回避策を提案してください。

Sub ConvertTextToNumber() 

    Dim rRange As Range 
    Dim rCell As Range 
    Dim Rowcount As Long 


    Worksheets("Input").Select 
    Rowcount = Application.CountA(Range("C:C")) 
    Set rRange = ActiveSheet.Range("AQ2:AQ" & Rowcount) 

    For Each rCell In rRange.Cells 

     rCell.Value = rCell.Value * 1 

    Next rCell 

End Sub 

Answer 1

ループを実行する前にNumberFormatを数値形式に設定してみてください。

Set rRange = ActiveSheet.Range("AQ2:AQ" & Rowcount) 
rRange.NumberFormat = "#,##0" ' anything but "@"/text 

For Each rCell In rRange.Cells 
    Debug.Assert IsNumeric(rCell.Value) 'will break if not true 
    rCell.Value = rCell.Value * 1 
Next rCell 

私はエラーがこれまでに遭遇した場合Assert呼び出しは実行を中断することを加えました。 rRangeにセルエラーが含まれている場合、rCell.Value * 1はタイプの不一致ランタイムエラーを発生させます。

はまた、エラー細胞が予想されることになっている場合、あなただけの、エラー細胞をスキップすることができます：

For Each rCell In rRange.Cells 
    If Not IsError(rCell.Value) Then 
     rCell.Value = rCell.Value * 1 
    End If 
Next rCell