お世話になります。
Excel2000を使用しています。
外部データの取り込み(テキストファイルのインポート)を行い、データを取り込んだのですが
元々のテキストファイルのデータ後ろにスペースが入っているものがあるのです。
A B C
1東京都_ 36歳 男
2神奈川県 25歳_ 男
3埼玉県_ 20歳 女_
※_がスペースです。
このスペースを除去したいのですがどのようにすればよいのでしょうか?
当方、VBAも多少ですが知識があるのでマウス操作で不可能であればVBAを使った方法でも構いません。
データの存在する全セルが対象です。スペースが2つ以上入ってる場合もありです。
また、とある1列全体の先頭文字「〒」を除去したいのですが、こちらもお分かりでしたらよろしくお願いします。
No.2
- 回答日時:
VBAを書かなくても置換で出来ます。
「編集」→「置換」 変更前 SPACE 変更後 なし
です。
この場合 氏 名 の様に間にあるスペースは注意が必要です。例示のケースであれば「全てを置き換える」をクリックすれば簡単です。
ご指摘のように、途中にスペースがある場合は注意が必要なのですね。
この点は今後この操作をする上で覚えておいたほうが良いですね。
どうもありがとうございました。
No.3ベストアンサー
- 回答日時:
> このスペースを除去したいのですがどのようにすればよいのでしょうか?
置換では、文字列途中のスペースも詰められてしまうので、Trimを使いましょう。
・ Trim → 前後のスペースを詰める
・ LTrim → 前方のスペースを詰める
・ RTrim → 後方のスペースを詰める
という動作になります。
> とある1列全体の先頭文字「〒」を除去したいのです
下記のコードでOKです。(ちょっとムダが多いので、適宜改良してご使用ください)
Sub Macro1()
Dim i As Long
Dim j As Long
With Application.ActiveSheet
For i = 1 To .UsedRange.Rows.Count
For j = 1 To .UsedRange.Columns.Count
If Len(.Cells(i, j).Value) > 0 Then
.Cells(i, j).Value = RTrim$(.Cells(i, j).Value)
End If
If Left$(.Cells(i, j).Value, 1) = "〒" Then
.Cells(i, j).Value = Mid$(.Cells(i, j).Value, 2)
End If
Next j
Next i
End With
End Sub
コードを書いていただきありがとうございます。
目的とする結果が得られました。
しばらくVBAから離れていたせいか、スペースを除去する=Trimという発想が思いつきませんでした。
大変勉強になりました。
どうもありがとうございます。
No.4
- 回答日時:
SUBSTITUTEが使えますが、
1東京都_ がA2セルにあるとして、D2セルに
=SUBSTITUTE(A2," ","") と入力すれば、D2セルは「1東京都」となります。
削除したい文字が「〒」のときは=SUBSTITUTE(A2,"〒","")と入力します。
スペースが二つあっても三つあっても、いっきになくなります。ただし、全角の場合は全角のスペースを半角の場合は半角のスペースを「〒」の箇所に入力してください。
このセルを右、下にコピーすればB2,A3等もE2,D3に処理されます。
出来上がった部分を「コピー」→「形式を選択して貼り付け」 で結果の値だけのデータを好きなところに貼り付けられます。
このような関数が存在するとは全く知りませんでした。
便利な関数なので今後別の形でも使えそうです。
大変参考になりました。
どうもありがとうございます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルの数式で教えてください。 1 2023/02/02 10:20
- Visual Basic(VBA) 指定列最終行までのスペースを改行するVBAについて 2 2022/06/01 19:50
- Excel(エクセル) Excel 表の作成について 3 2022/06/16 12:15
- Visual Basic(VBA) 特定の文字を簡単な操作で半角スペースに変換するか削除したい 2 2022/11/01 10:35
- Excel(エクセル) CSVファイルがカンマ区切りにならない。対処法を教えていただきたいです。 仕事でSMS一斉送信ができ 2 2022/07/01 21:24
- Excel(エクセル) 関数EXACT(文字列,文字列)とexcelVBA 3 2022/04/14 15:07
- Excel(エクセル) エクセル マクロ テキストファイルを取り込む 複数の区切り文字で別々のセルに格納するには? 3 2022/08/10 21:10
- Excel(エクセル) Excelについて教えてください。 帳票データがあります。 アクセスに取り込むため、 データ形式にし 1 2022/06/08 19:59
- Visual Basic(VBA) VBA ドロップダウンリストを残して値のみクリア 2 2022/10/27 05:42
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
多数の計算セルに一括で同一の...
-
エクセルで文字の入力がセルの...
-
エクセルのセルの中の,よりも前...
-
置換機能を使わずに先頭に「'」...
-
小数点を消す方法
-
【エクセル】ピボットテーブル...
-
excelで可視セルのみ置換
-
Excelで、半角スペースをTABに...
-
エクセルでセル内の一部分だけ...
-
Excelからテキストへのコ...
-
Excelのシートにある1行...
-
Excelの空文字セルの削除方法を...
-
Excel "~区"のみを削除したい
-
VBAでの日付の置換方法を教えて...
-
企業名簿で(株)や(有)を無視し...
-
エクセルの表ををメモ帳などに...
-
Excelの入力済みセルに一括で、...
-
Excelのmatch関数エラー原因が...
-
別シートのリストから置換する方法
-
エクセルで、セルにハイフンを...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで文字の入力がセルの...
-
多数の計算セルに一括で同一の...
-
Excelのmatch関数エラー原因が...
-
Excelの入力済みセルに一括で、...
-
エクセルのセルの中の,よりも前...
-
Excelからテキストへのコ...
-
excelで可視セルのみ置換
-
置換機能を使わずに先頭に「'」...
-
Excelで、半角スペースをTABに...
-
【エクセル】ピボットテーブル...
-
エクセルでセル内の一部を一括...
-
Excelの空文字セルの削除方法を...
-
Excelのシートにある1行...
-
エクセルの表ををメモ帳などに...
-
小数点を消す方法
-
Excelで電話番号などの-(ハイ...
-
Excelのアポストロフィーの削除
-
Excel "~区"のみを削除したい
-
エクセルでセル内の一部分だけ...
-
一括でダブルクリックした状態...
おすすめ情報