• ベストアンサー

エクセルシートを半角・スペースなしに

エクセルのシートに文字列・数字が入力されています。しかし文字や数字の間に空白があったり、全角・半角がバラバラに入力さています。 これを全て、半角でスペースをなくすにはVBAにどのように書けばよいのでしょうか？

質問者が選んだベストアンサー

  • ベストアンサー
  • kmetu
  • ベストアンサー率41% (562/1346)
回答No.2

一部訂正 Selection.Replace What:=" ", Replacement:="" のほうがいいかも

tarono0123
質問者

お礼

ありがとうございます。参考になりました。

その他の回答 (1)

  • kmetu
  • ベストアンサー率41% (562/1346)
回答No.1

Replace メソッドで空白を削除する Worksheets("Sheet1").Range("A:Z").Replace What:=" ", Replacement:="" StrConvで全角を半角に For Each mRange In Selection mRange.Value = StrConv(mRange.Value, vbNarrow) Next でいかがでしょう

  1. カテゴリ
  2. パソコン・スマートフォン
  3. ソフトウェア
  4. オフィス系ソフト

関連するQ&A

  • 入力データの半角スペースと全角スペースを区別させる方法

    データベースに文字列を保存する際、既に同じ文字列が保存されていないか事前にチェックをかけているのですが、この時半角スペースが入った文字列と、全角スペースが入った文字列を同じものと認識してしまい、これを区別したいのですが、どういった方法があるのでしょうか。 具体例を出しますと、 「AAA　BBB」（間の空白は全角スペース）を入力する際、同じ文字列が同じフィールドに保存されていないか、SQLのWHERE句で「フィールド名="AAA　BBB"」を指定して検索し、同じ文字列があれば警告を出しているのですが、「AAA BBB」（間の空白は半角スペース）にも検索でマッチしてしまいます。 この検索の時に「AAA BBB」をマッチさせないようにしたいのです。 OS:Linux MySQLバージョン:5.1.22 文字コード:UTF-8 です。 よろしくお願いします。

  • エクセルで、【スペース除き】【半角⇒全角へ】

    タイトルの件、質問します。 A1セルに、下記のように、全角と半角の文字数字及び、スペースが入っています。 これを ・全角のみ ・半角文字、半角スペース　削除 を出来ないでしょうか？ あいうえお１２３４５　アイウエオ 12345

  • Excel VBAで、特定半角文字のみ全角文字に変換したい。

    Excel VBA で、 A列に半角、全角が混在した文字列及び数字が入っています。 ファイル名に出来ない半角文字　\ / : * ? " < > | だけを全角文字にするには、 どのようなコードを書けば良いのか、宜しくお願いします。

  • エクセルで半角文字をシートごと一括で変換したいのです

    エクセルで全角で入れなければいけない文字（カタカナ・数字・英字）を全て半角で入力してしまいました。一括で全て全角にすることはできますか？一括でなくても簡単に直す方法があれば教えてください。よろしくおねがいします

  • エクセルのセル内の数字を一発で（または、2発、3発）で半角にする方法

    エクセルで、 パソコン初心者が入力した半角や全角交じりの数字を、 簡単に、列ごと行ごとに半角（全角）数字に揃える方法をご存知の方おられましたら、教えてください。 元々のセルの書式設定は、文字列にしてあります。 （ゼロで始まる数字もあるため。）

  • エクセルのマクロ(ＶＢＡ）の変数でスペースを認識しません

    お世話になります。エクセルのマクロ（ＶＢＡ）を組んでいてどうしても解せないことがあります。 Data1 = "9" Data2 = "　　　　　　　　　　　　　　　"(←スペースはとりあえず半角30文字とでもしておきます。) Data = Data1 & Data2 Range("a1").Value = Data 上記の命令を実行すると、9のあとに半角スペースが30文字分ある文字データが入力されると思うのですが、実際には9の数字データだけが入力されてしまいます。つまりスペースだけのData2という変数は無視されているみたいです。 一方、２行目を例えば Data2 = "　　　　　　　　　　　　　　　x" と、スペースのあとに一文字入れるとA1カラムには "9　　　　　　　　　　　　　　　x" と表示されます。 これはどういった現象なのでしょうか？また、スペースだけの文字列を変数として認識させるのはどうすれば良いのでしょうか？ よろしくお願いします。 ※この質問を書いていて変に思いました。質問の文中にあるダブルクォーテーションの中のスペースは半角で入力すると全て無視されて""となってしまいます。全角で15文字分のスペースを入れたら入りました。この辺も同じような理由によるものでしょうか・・・

  • Ｅｘｃｅｌで全角数字と半角数字の混在について

    　Excelについて、以下のように全角数字と半角数字が混在しているワークシートがあるので、全部を半角数字に置き換えることは出来ないでしょうか？ ＥＺ１２３ 123 ４８６ このように文字列としての数字・数値としての数字が混在しています。これらを全て半角数字にしたいのですが。あくまでも、見栄えの問題ですので、特に、計算等の必要はありません。 　よろしくお願いします。

  • 半角スペースを全角スペースに

    文字列で、半角スペースを全角に置き換える方法がわかりません。。。 正規表現が苦手で、MySQLに登録する画面を作りましたが、半角スペースがあると、それ以降が無視されてしまうため、その半角スペースを全角スペースに置き換えたいのですが、書式がわかりません。 すいませんが、ご教授お願いします。 あと、もし全角スペースに置き換える方法以外で何かいい策などもしありましたら、それもよろしくお願いします。

    • ベストアンサー
    • PHP
  • VBAで( )のものだけ(　　　)に変更したい

    お世話になります。 現在エクセルの複数のセルに( )空白のスペースが入った()があります。 ※()の中は半角・全角のスペースが中身が半角・全角のスペースの数がさまざまな形で入っています。 ()の中に入っているのは半角・全角のスペースがはいている()のみ( )※全角スペース3個　のものに変換したいのです。 しかしながら、他のセルに(2222)などの()の間に数字や文字が入っているものがあり、それに対しては、そのままにしたいのです。 エクセルのVBAで実現したいのですが、どのようにすればよいでしょうか？ 何卒よろしくお願いします。

  • excelで大量の半角スペースを一度で消す方法について

    excelについて。 とある品目と数字が並んでいる表を扱っています。 例えばAの列に品目、Bの列に個数などの数字が入っていたとします。 通常B列を選択したらシート右下にその合計値が出ますが、今扱っている表にはそれがでません。 見ると数字のところは1桁の位の横に半角2文字分のスペースが入っています。 この半角スペースを消して、数字のみにすると合計が出そうなのですが、 1行1行を消していくには膨大な行数があります。 この半角スペース2文字分を一度に消す効率的な方法はないでしょうか。 「置換」機能から行なってみましたが「一致するデータが見つかりません」と出てしまいました。やり方がまちがっていたのでしょうか。 何か解決策をご存知の方、教えて下さい。宜しくお願い致します。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する