VBAで文字列を数値に変換したい

質問

こんにちは！

システムから自動で出力されるExcelファイルがあります。そのファイルを開くと数値が文字列として認識されています。いつも数値に直しているのですが、下記の方法でなおしています。

エラー チェック機能を使用して文字列形式の数値を変換する

他にも文字列を数値になおす方法は下記URLを参考にしています。

http://office.microsoft.com/ja-jp/excel-help/HP010342308.aspx

ただ、これをVBAで変換できないかと思っています。

例えば、A～G列まで文字列データがはいっています。このA～G列のデータをVBAで一気に数値化したいのですが、どのようにすればおこなえるでしょうか？

回答No.4

米沢 栄蔵（@YON56） · ベストアンサー

A1～G20までのセルに文字列形式の数値があるとすると、

For A=1 To 7
For B=1 To 20
Cells(A,B)=Val(Cells(A,B).Value)
Next B
Next A

で、いけます。

ちなみに、文字列形式の暦値は、DateValueにて暦数値になります。

お礼

勉強になります！ありがとうございます、感謝感謝です！

回答No.3

tsubuyuki

止めはしませんが、あまり意味は無いかもしれません。

一例として

Sub sample()
Dim c As Range
　　　　For Each c In Range("a1").CurrentRegion
　　　　　　　　If IsNumeric(c) Then
　　　　　　　　　　　　c = c * 1
　　　　　　　　　　　　c.NumberFormatLocal = "G/標準"
　　　　　　　　End If
　　　　Next
End Sub

お礼

勉強になります！ありがとうございます、感謝感謝です！

回答No.2

keithin

sub macro1()
range("A:G").numberformatlocal = "G/標準"
range("A:G").value = range("A:G").value
end sub

みたいな。

お礼

勉強になります！ありがとうございます、感謝感謝です！

回答No.1

FEX2053

別にいちいち数値に直さなくても、そのまま数値データとして
使えますけど？　要は「見た目だけの問題」なんですが？？

数値を文字にするなら、それなりの作業が必要ですけど、
文字扱いになってる数値なら、そのまま=A1+20とかやっても
数値になって処理されるはずです。

これはVBAの中でも同じで、別にA=cLng(Range("A1").Value)
とかやってやらなくても、A=Range("A1")で取得できます。

お礼

勉強になります！ありがとうございます、感謝感謝です！