エクセルで全角データを半角データに変換したいのですが、簡単に出来ないでしょうか?

このQ&Aに関連する最新のQ&A

A 回答 (2件)

patman2さんこんにちは。


MicrosoftWordをお持ちの場合は試してみる価値があります。私が思いついたウラ技中のウラ技です(笑)。
まず、半角にしたいEXCELファイルをコピーして2つにします(1つはバックアップ)。次に、そのファイルを開いて、メニューの[ツール]>[オプション]として、表示されたダイアログの左下の方の[数式(R)]にチェックを入て[OK]します。すると、参照式や関数まで全部シート上に表示されると思います。
さて、ここからが裏技ですが、このファイルをCSV形式で保存します。メニューの[ファイル]>[名前を付けて保存]でダイアログが表示されますが、最も下に"ファイルの種類"という選択項目があります。そこの"CSV(カンマ区切り)(*.csv)"を選択し、適当に名前を付けてデスクトップにでも保存してください。
# なお、CSV形式では先頭のページしか保存できませんので、複数のシートがある場合は、シート毎にファイルを分割するなどの手段を取ってください。
当該cvsファイルをMicrosoftWordから開きます。Wordのメニューの[書式]>[文字種の変換]で"半角"を選択して[OK]するとすべて半角になります。そして、このファイルを上書き保存してください。
再び、Excelから当該csvファイルを立ち上げると、すべて半角になっていると共に、数式や参照式も有効になっているはずです。そのまま、Excel形式で保存し、図形などがある場合は元のファイルから一括コピーして貼り付けます。
EXCEL2000とWORD2000にて試したところ、成功しました。
    • good
    • 0
この回答へのお礼

早速試してみました。
この方法いいですね。ありがとうございます。

お礼日時:2001/04/24 16:58

ASC関数を使えば変換できますが、[=asc()]


ワークシートあちこちに散らばってるものを一括変換する場合は
ちょっと面倒ですね・・・VBA使うしかないかも。
    • good
    • 0
この回答へのお礼

できました。ありがとうございます。

お礼日時:2001/04/24 10:25

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

Qエクセル(Exsel)についての質問です Enterを押して確定後、全角→半角に変換することは出来るのでしょうか?

エクセル(Exsel)についての質問です
エクセルを使い住所録を作っています。
縦に電話番号を10件くらい打ちました
その時全角で打ってしまったのですが
それを半角にしたいのです(横幅を狭くしたいため)
そういったときはまた初めから打ち直さないといけないのでしょうか?
全角→半角に変換することは出来るのでしょうか?
Enterを押して確定した場合はそこから変更することは出来ないのでしょうか?
全角→半角に変換することが可能であればやり方を教えてください
また何も関係ないかもしれませんが、ATOK(エイトック)というソフトを入れています

Aベストアンサー

※変換する項目が少しの場合

変換したいセルをダブルクリック

変換したい文字のみドロー

右クリック

再変換(V)
で変換前と同様に変換出来ます

Qエクセルのファイルにある「全角英数字」を半角に、「、」を「,」に一発で変換できるソフトはないでしょうか?

非常に沢山のエクセルファイルがあります。そのエクセルファイル内のシートにある情報全てについて一発変換をしたいです。できればシートが複数に分かれているので複数のシートであっても一発変換で済めば最高です。でも単一シートごとでも構いません。頑張れます。
全角の英字・数字を半角に、そして「、」を「,」に変換したいです。
カタカナは変換したくないです。ウェブページにアップしたいからです。
色々と探しはしたのですが、セル一行しか一度に出来ないとか全く使うには程遠いものしかありませんでして、何か良いソフト、または方策がないでしょうか。

Aベストアンサー

こんにちは。

最初に直接関係のない話ですが、興味を持っていただいた方にお知らせしておくと、このマクロは、もともと、汎用型を想定したもので、特に、Access に関しては、Excelのような半角を全角にした時に、濁音、半濁音は丸められません。そこで、単純に文字の半角・全角の変換を行うとできません。単純な方法は、Excelのワークシートのみにしか有効ではありません。

さて、ご質問の件ですが、

全角のスペースに関しては、

'Unicodeの英数記号の全角
× myPattern = "[\uff01-\uff5a]+"
myPattern = "[\uff01-\uff5a ]+" '←変更

全角スペースは半角になるはずです。半角は半角のスペースのままです。二重・三重の半角スペースは、そのままです。つづめることはしません。

☆ 汎用性のあるマクロの登録の仕方。

>変換したいファイルを開くと最初に登録したはずの今回のコードが見当たらず、その都度コードをつくるはめに陥っております。

ふたつの方法があります。

* ひとつは、「個人用マクロ」に登録することです。
「個人用マクロ」は、マクロの記録をすると、登録の保存先を指定されますので、そこに、「個人用マクロ」を選ばせられます。そこで、ちょっと試しに、セルペポインターでもクリックするか、移動すれば、書き込まれますので、その出来た場所に、上書き登録すれば、登録されます。(ただし、保存はしてください)

マクロボタンの登録の仕方は、
メニューの[ツール]-[ユーザー設定]-[コマンド]-で、
ニコチャンマークを、メニューバーにドラッグして貼り付けます。

次に、そのまま選択したボタンの編集で、[マクロの登録] で、マクロ名を登録すればよいです。「マクロの登録」で出てきたダイアログの中に、
「PERSONAL.XLS!MainMcr」と出てくるはずですから、それを登録します。
ニコチャンマークは、ボタンイメージ変更で、他のボタンを選ぶことが出来ます。

「ユーザー設定」のメニューを出してから、ボタンをクリックすると編集が可能になります。

** (お勧め)次は、「個人用マクロ」ブックを使わない方法です。常に、そのブックを開いておく必要がありますが、必要ではないときには、常駐していないので、メモリの負担にならずに済みます。(私がよく用いる、擬似的アドインです。)

そのワークシートには、使い方の説明を書いておきます。分からなくなったときに、それを読みます。(本当のアドインには、このようなことは簡単に出来ません。)使用しているときは、単に、ブックは、最小化しておくだけでよいです。

手順:

ブックがあけているときだけのショートカットにしたいなって思うようでしたら、

'<標準モジュール>
Sub Auto_Open()
 Application.OnKey "^w", "MainMcr"
 Application.OnKey "^W", "MainMcr"
 Beep '登録されたときの合図。
End Sub
Sub Auto_Close()
 Application.OnKey "^w"
 Application.OnKey "^W"
End Sub

ブックをオープンしている時だけ、このショートカットが動きます。Ctr+ w だけで、アクティブなブックの変換が行われます。

最初、登録した時だけは、Auto_Openのところにカーソルを置いて、F5 を押して、登録できたか様子をみます。後は、必要なときに、オープンすれば、ショートカットが働きます。閉じれば、ショートカットはなくなります。
私は、とてもこれは便利だと思っています。それに、アドインのように後々の痕跡も残らないです。

こんにちは。

最初に直接関係のない話ですが、興味を持っていただいた方にお知らせしておくと、このマクロは、もともと、汎用型を想定したもので、特に、Access に関しては、Excelのような半角を全角にした時に、濁音、半濁音は丸められません。そこで、単純に文字の半角・全角の変換を行うとできません。単純な方法は、Excelのワークシートのみにしか有効ではありません。

さて、ご質問の件ですが、

全角のスペースに関しては、

'Unicodeの英数記号の全角
× myPattern = "[\uff01-\uff5a]+"
myP...続きを読む

Qエクセル 全角から半角への変換

エクセルで作成した住所録(住所と電話番号)の数字が全角と半角がごちゃまぜになってしまっているので半角に全て変換をしたいので教えてください。お願いいたします。

Aベストアンサー

 こんにちは。No.2様の方式をあえて採用してみますとこんな風でしょうか。
Excel2000~2003でのやり方です。もしExcel2007をお持ちの方ですと以下の操作が
異なってしまいますのでその時はごめんなさい(VBAコード自体は有効だと思います)。
 VBAを記述するには Excel のメニューより
  ツール → マクロ → Visual Basic Editor
と選択します。そして「プロジェクト」ウインドウの Microsoft Excel Objects の所で
  右クリック → 挿入 → 標準モジュール
とします。コードのウインドウが開いたら下記のコードをコピペしてください。

'---------ここから-------------
Function ZenToHan(strStr As String) As String

 ZenToHan = StrConv(strStr, vbNarrow)

End Function

Sub test()

 Dim strWk As String
 Dim rgWk As Range
 Dim rgArea As Range

 Set rgArea = Range("B5:C8") 'セル範囲を指定。左記の例はセルB5からC8の範囲
                     'という意味です。B列に住所、C列に電話番号のイメージ

 For Each rgWk In rgArea
  strWk = rgWk.Value
  rgWk.Value = ZenToHan(strWk)
 Next

 Set rgArea = Nothing

End Sub
'----------ここまで------------

 この後一度ファイルを保存しておいてください。そしてExcelのメニューで
  ツール → マクロ → マクロ
として、マクロ名:test を選んで実行します。
結果がおかしければファイルを保存せずに終了して、先ほど保存したファイルを読み込み
なおしてください。

ちょっと煩雑かもしれませんが、VBAでやるならという参考まで...

 こんにちは。No.2様の方式をあえて採用してみますとこんな風でしょうか。
Excel2000~2003でのやり方です。もしExcel2007をお持ちの方ですと以下の操作が
異なってしまいますのでその時はごめんなさい(VBAコード自体は有効だと思います)。
 VBAを記述するには Excel のメニューより
  ツール → マクロ → Visual Basic Editor
と選択します。そして「プロジェクト」ウインドウの Microsoft Excel Objects の所で
  右クリック → 挿入 → 標準モジュール
とします。コードのウインドウが開いたら下記の...続きを読む

Qエクセルで全角を半角に変換することは・・

エクセルで全角で確定してあるデーターを一括で半角に変換することは出来ませんか?

Aベストアンサー

Ano1さんも回答している方法ですが
Sheet1のA1~D40に全角のデータがあると仮定して書きます。

Sheet2に移動して
(1)A1に=ASC(Sheet1!A1)と入力
(2)A1を選択して【編集】→【コピー】を選択
(3)A1:D40までを選択して【編集】→【貼付け】を選択
Sheet2のA1~D40に半角のデータが表示されます
(ただし、これは数式の結果なのでSheet1の内容が消えると消えます)
値として残すなら
(4)A1:D40までが選択された状態で【編集】→【コピー】を選択
(5)【編集】→【形式を選択して貼付け】→【値】 OKをクリック

すると、半角で打ち込んだようになります。
一括とはいえませんがこんな方法もありますので参考までに
※このような処理をする場合は念のためにバックアップしてからされることをお勧めします。toku33さんの期待した結果でない可能性があるので・・・・

Qエクセル:半角カナを全角に、半角英数はそのままに。

エクセル:半角カナを全角に、半角英数はそのままに。

ひらがな・漢字・半角カナ・半角英数が混じったセルが縦に沢山あります。
半角カナだけを全角にし、半角英数はそのままにしたいのですが、JISでは全て全角になってしまいます。
どなたか良い関数を教えてください。

Aベストアンサー

ご使用のエクセルのバージョンが提示されていないのですが、エクセル2007ならネストの制限にかからないので、以下のような数式1つで変換することができます(A2セルにデータがある場合)。

=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(JIS(A2),"0",0),"1",1),"2",2),"3",3),"4",4),"5",5),"6",6),"7",7),"8",8),"9",9)

古いバージョンのエクセルで変換したいなら、B2セルに「=JIS(A2)」
C2セルに以下のような式を入力し、右方向にL列まで、下方向にデータ数分だけオートフィルすればL列に変換後のデータが表示されます。

=SUBSTITUTE(B2,TEXT(COLUMN(A1)-1,"[DBNum3]0"),COLUMN(A1)-1)


このカテゴリの人気Q&Aランキング

おすすめ情報