エクセルの数字を半角から全角へ

質問

エクセルのリストにある数字200行くらいのものをシステムへ取り込みの作業をしています。しすてむへ取り込むことのできる文字は全角のため次のエクセル関数で返還を試し見ましたが結果は無理でした。
=JIS(A1) ---->>>> 結果は　#NAME?
=DBCS(A1) ----->>>> 同じ数字が表れましたが全角にはなっていません。

私が想像するところ元の数字はこの数式を使って全角になる条件を満たしていないのではと思います。
ちなみにこのもとになる200位の数字は必要な計算結果をコピー文字列でエクセルAの欄へ貼り付けしているものです。

何とか方法がないものでしょうか？
最悪は手打ちで1件づついれることなりそうです。

回答No.1

w4330 · ベストアンサー

ctrl ＋ h
これで置き換える、例「0」を「０」の様に
0～9まで10回操作が必要ですが数分で終わりです

お礼

とても簡単ですぐに解決しました。ありがとうございました

回答No.5

imogasi

データ状況の説明が熟練者でないと難しいケースでしょう。
長い説明のわりに、状況が、よく判らない。
ーー
VBAになるが、下記はVBAのSｔｒCｏｎｖ関数の利用です。
結果は、これでどうかな？
標準モジュールに下記貼り付け。実行。
Sub test01()
For i = 1 To 10　'iは処理のデータセルの、行番号を指す。第１０行まで、でない場合は修正すること
’--データはA列にあるとする。他の場合はAを修正する
x = Cells(i, "A")
y = StrConv(x, vbWide)
’--結果データは、同行のB列に出すとする。他の場合は列Bを修正する。
Cells(i, "B") = y
Next i
End Sub
これでうまく行かないかな。

お礼

お時間いただきありがとうございました。

回答No.4

asciiz

あ、小数点とかあるとTEXT関数の書式を考えなきゃいけないので、ヌル文字を結合(&)して文字列化してしまうという手もありました。

(例2)
=JIS(A2&"")

3桁コンマとかつけたいなら、回答No.3のTEXTで書式指定した方が良いですが。

回答No.3

asciiz

＞元の数字はこの数式を使って全角になる条件を満たしていないのではと思います。

はい、その通りです
JIS関数で変換できるのは「文字列」ですから、数値は全角変換できません。
なので、文字列変換する関数をネストしてあげればよいです。

(例)
=JIS(TEXT(A1,"0"))

回答No.2

chayamati

＞ちなみにこのもとになる200位の数字は必要な計算結果を
　コピー文字列でエクセルAの欄へ貼り付けしているものです。
★計算結果をコピー文字列でエクセルAの欄へ値貼り付けでは

お礼

助言ありがとうございました、いただいた方法では解決しませんでしたがほかの方のアドバイスで解決しました。