Excelの質問です。一番右端の半角スペース以降の文字列をすべて削除するような関数やマクロはないでしょうか。

Question

moon-fondu

236

235もっと見る

500pt

コンピュータ学習・教育

Excelの質問です。一番右端の半角スペース以降の文字列をすべて削除するような関数やマクロはないでしょうか。

今、B列に次のようなデータが、4万行近く並んでおります。

-----------------------
らくだ動物アフリカ
らくだ動物特徴
らくだ生息地アジア
らくだ生態進化の過程
・・・
-----------------------

といった感じです。
この状態から、一番右端の半角スペース以降の文字列全てを削除したいので、

-----------------------
らくだ動物
らくだ動物
らくだ生息地
らくだ生態
・・・
-----------------------

のようにしたいのですが・・・データが膨大で、手作業で行うのは途方もない作業です。
関数やマクロを用いて、何とか効率的に文字列を削除する方法はないでしょうか。

よろしくお願い致します。

回答の条件

1人5回まで

登録：2015/08/27 23:08:48
終了：2015/08/31 23:55:51

※ 有料アンケート・ポイント付き質問機能は2023年2月28日に終了しました。

コメントはまだありません

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

リクエスト送信済

回答リクエストを送信したユーザーはいません

きゃづみぃ · Accepted Answer · 2015-08-27T23:35:58+09:00

No.1

きゃづみぃ1353911982015/08/27 23:35:58

500pt

Sub main()
    Dim r As Long
    For r = 1 To Rows.Count
        If Cells(r, "B") = "" Then Exit Sub
        a = InStrRev(" " & Cells(r, "B"), " ")
        If a > 1 Then
            Cells(r, "B") = Left(Cells(r, "B"), a - 2)
        End If
    Next r
End Sub

二行目からとかの場合は
For r = 1
の 1を 2に変えればよいです。

他3件のコメントを見る

ありがとうございます！
すみません、でも「実行時エラー〝5〝プロシージャの呼び出し、または引数が不正です」と出てしまいまして・・・
B列に空白セルがあるのが原因でしょうか。
また、実は、

-----------------------
らくだ動物アフリカ
らくだ動物特徴
らくだ生息地アジア
らくだ生態進化の過程
・・・
-----------------------

のように、全て3つの文字列で構成されてはおらず、

-----------------------
らくだ
らくだ動物アフリカ
らくだ動物特徴
らくだ生息地調査アジア
らくだ生態知りたいなぜ進化の過程
・・・
-----------------------

等、文字列の数がセルによって1フレーズしかない（空白スペースなし）場合や、3フレーズだったり4フレーズだったりと、まちまちでして・・・それゆえ規則性がなく難しいのかもしれないのですが、2フレーズ以上ある場合で、右端のフレーズだけを消せればよいのですが・・・。
もし可能でしたら再度方法等お教えいただけないでしょうか。
よろしくお願い致しますm(__)m

2015/08/28 02:17:01

きゃづみぃさんありがとうございます！
うまく消すことができたのですが・・・238行目と239行目が空白セルだからでしょうか、240行目以降、右端のフレーズが消えることなく、そのまま残ってしまうのです。
空白セルはスキップして処理を続けることはできないでしょうか？
度々お手数お掛けしてすみません、もしよろしければ、再回答いただければ幸いです。
よろしくお願い致します。

2015/08/28 21:52:25

If Cells(r, "B") = "" Then Exit Sub

上記の一行を削除して

For r = 1 To Rows.Count

Rows.Countの箇所に最終行番号を入れてください。

2015/08/28 23:16:44

きゃづみぃさんありがとうございます、うまく消すことができました！

2015/08/31 23:55:42

Excelの質問です。一番右端の半角スペース以降の文字列をすべて削除するような関数やマクロはないでしょうか。

ベストアンサー

きゃづみぃ1353911982015/08/27 23:35:58

コメント（0件)

この質問への反応（ブックマークコメント）