テキストファイルのデータを落としてきたときに、金額が
￥400000と表示される場合があります。
これをExcelに落としたとき、￥が？になってしまうケースが
稀にあります。このときの数値への変換の仕方を解説します。
？マークがついている時点でこれは数字ではなく、テキスト
文字なので、？マークを外す必要があります。
外し方は、Mid関数を使います。
次のVBAコードを実行します。
Sub 変換()
a = 1
Do Until Cells(a, 1).Value = “”
Cells(a, 1).Value = Mid(Cells(a, 1).Value, 2, 20)
a = a + 1
Loop
End Sub
結局一文字目だけ外したいので、Mid関数で、抜き出す位置を2文字目にします。
抜き出す範囲は桁数を合わせる必要はないので、適当に20としました。
詳しくはMid関数の使い方をご参照下さい。
今まで違うセルに変換した値を入れてきましたが、別にそうしなければいけない
訳ではなく、今回は、A列の値をA列に上書きしました。
実行結果です。
セルの文字を操作する関数、特にMid関数は大変重宝します。
