Ｅｘｃｅｌ／Ｗｏｒｄなどで、一度確定した半角文字を全角文字に

Ｅｘｃｅｌ／Ｗｏｒｄなどで、一度確定した半角文字を全角文字に、全角文字を半角文字にできますか？打ち直すのではなく、例えば文字を選択して、その選択した文字は変換できるとか、、
大量にデータを入れた表がありまして、全角・半角がちゃんぽんになっていて、ソートなどをかけると、ばらばらになっちゃって、どうにかしたいのですが、いまさら打ち直す時間もないし、困っています。
詳しい方、教えてください。

No.4 ベストアンサー 回答者： azzu0707 回答日時： 2006/03/02 21:25

WordはNo2の方が書いているので省きます。

Excelはマクロでやるのが良いかと。
メニューよりツール⇒マクロ⇒VisualBasicEditorを選択して、
エディタのメニューより挿入⇒標準モジュールを選択し、出てきた画面に
Sub 全角()
Dim 範囲 As Range
For Each 範囲 In Selection
範囲.Value = StrConv(範囲.Value, vbWide)
Next 範囲
End Sub

Sub 半角()
Dim 範囲 As Range
For Each 範囲 In Selection
範囲.Value = StrConv(範囲.Value, vbNarrow)
Next 範囲
End Sub
を貼り付けます。
その後、Excelbookに戻り、変換したい場所を選択後、ツール⇒マクロ⇒マクロにて
全角を選択してOKを押せば全角に、半角を押してOkを押せば半角になります。
頑張って下さい。

No.3 回答者： sanori 回答日時： 2006/03/02 19:36

さっきの者です。

Ｅｘｃｅｌの場合は、修正が大変ですね。

Ｅｘｃｅｌで大量に修正したいときは、いくつか方法があると思いますが、

１．
Ｅｘｃｅｌの「置換」機能でやる。
（対象のセルを全部マウスドラッグで選択してから編集→置換）

２．
１回ＣＳＶで保存して、それをワードパッドなどで開いて、一斉置換をかける

３．
全角文字⇔半角文字　の変換が出来る関数があるので、それを使う。
（例えば、その表の外側の、広いところで同じ大きさの新しい表を作って、そこの１カ所のセルに関数を入れて、そのセルを新しい表全域にコピー）

４．
２と同様だが、「連続置換君」などのツールを使う
http://groups.yahoo.co.jp/group/team-terapad/fil …


私であれば、３か、若しくは、４でやります。


Ｅｘｃｅｌを手元に持ってないので、詳しい操作説明ができなくてごめんなさい。

No.2 回答者： mshr1962 回答日時： 2006/03/02 19:27

ワードの場合は「書式」「文字種の変更」「全角」で出来ます。

エクセルはそういう機能はないので関数で置き換えるか、マクロですね。
=JIS(A1)
でA1セルの内容を全角に置き換えます。これをコピーして、値として貼り付ける。
またはマクロでセルの内容を文字の判定できたものを強制的に全角に置き換えですね。

No.1 回答者： sanori 回答日時： 2006/03/02 19:23

ああ、それは、一太郎（ＡＴＯＫ）で、昔からある機能ですね。

ＭＳ－ＩＭＥをお使いでしょうか？
ＭＳ－ＩＭＥでも出来ますよ！

たぶん、変換キーは、スペースキーでやられてますね？

スペースキーではなく、

一度確定した文字をマウスドラッグで選んだ後、スペースキーの横ぐらいにある「変換」っていうキーを押してみてください。
それで出来るはず。