全角、半角を一括変換したい。

質問

全角、半角を一括変換したい。
製品マスタと呼ばれる表が有ります、A列に製品名称(英数字表記:AX#4など)B列に規格寸法(3.5X5.5)。
全角半角入り混じっています。表の改定作業をすることになり英数字のすべてを半角表記することになりました、全製品数2000余りあります、一括して返還する方法が有れば教えて下さい。

回答No.3

mu2011 · ベストアンサー

マクロは如何でしょうか。
（１）対象のシートタブ上で右クリック→以下のコードを貼り付けてマクロ実行して下さい
　　　Ａ列上で空白セルが出現するまで全角→半角変換します。
（２）サンプルコード
Sub 全角→半角()
For Each a In Range("A:A")
If a = "" Then Exit Sub
Range("A1").Offset(a.Row - 1) = StrConv(Range("A1").Offset(a.Row - 1), 8)
Range("B1").Offset(a.Row - 1) = StrConv(Range("b1").Offset(a.Row - 1), 8)
Next
End Sub

お礼

只今マクロ勉強中でコードをうまく作成できないりベルです。試行してみます。有難う御座いました。

回答No.4

imogasi

何のファイルのことかかそのソフトも書かずに質問をするのはいけない。
ExcelならASC関数があるので一旦空き列につくり、値だけを元の列にコピペすれば簡単。
AcCessなどでもASC関数が在る。
VBAでも使える。
ー
オフィス以外の他のソフトなら＃１のようにCSVファイルに落とし半角変換後元のソフトに戻す。
CSVファイルになればテキストエディタでも半悪に変換できるソフトもあるようだ。
http://q.hatena.ne.jp/1147964182

お礼

基本的なマナー違反、恥じ入ります。有難う御座いました。

回答No.2

imogasi

何のファイルのことかかそのソフトも書かずに質問をするのはいけない。
ExcelならASC関数があるので一旦空き列につくり、値だけを元の列にコピペすれば簡単。
AcCessなどでもASC関数が在る。
VBAでも使える。
ー
オフィス以外の他のソフトなら＃１のようにCSVファイルに落とし半角変換後元のソフトに戻す。
CSVファイルになればテキストエディタでも半悪に変換できるソフトもあるようだ。
http://q.hatena.ne.jp/1147964182

回答No.1

root_16

何かのDBなら
CSV形式で書き出したりして
エクセルに移し、
ASC関数を使って
半角にした後、
戻すのが簡単そうですね。

お礼

早速の回答、有難う御座います。質問事項に重大なミスをしていました、表はエクセル2007です。ASC
の場合一時的にA,B列の間に列を挿入しこの列に変換させA列を削除する、B列も同様の手順を踏む、そういうことですね。