エクセルで末尾の空白を消したい

質問

文字列「ＡＢ　ＣＤ　　」という感じで文字間と末尾に空白が入っています。

これを文字列「ＡＢ　ＣＤ」という風に末尾の空白だけを消したいのですが何か良い方法は無いでしょうか？

文字長は「ＡＢＣ　　ＤＥＦ　　　」や「Ａ　ＢＣ　」などはマチマチです。

皆さんどうかよろしくお願いします。

回答No.1

PAPA0427 · ベストアンサー

A1セルに「ＡＢ　ＣＤ　」と入っていたら。

Ｂ１セルに「＝ＴＲＩＭ（Ａ１）」で、出来ます。

お礼

早速のお答えありがとうございます！
いろいろな方のすばらしいお答えがあったのですが1番目の書き込みに敬意を表して20ｐｔとさせて頂きます。
実はこの処理は氏名に対して行なうもので間に空白1文字以上は必ず入れています（一文字の苗字や一文字の名前などの場合空白を増やして他氏名とのバランスをとっていますが）。この関数で十分助かりました。ありがとうございました。

回答No.5

imogasi

VB/VBAにはRTRIM,LtRIM,TRIMがあります。エクセル関数には今のところ（２０００）RTRIMがないようなので、関数を自作します。実質１行です。
シート画面でＡＬＴ＋Ｆ１１キーでＶＢＥ画面になる。
ＡＬＴ＋Ｉ、Ｍで標準モジュールの画面になります。
そこへ
Function rtrm(c As String)
rtrm = rtrim(c)
End Function
を貼りつけます。ｒｔｒｍは何でもＶＢの関数名ステートメント名以外ならＯＫ。
シートに戻って、例えばＢ１セルに=rtrm(A1)といれる。
Ｂ１の値のみを複写し、ｆ２キーを押すと右の空白が取り除かれていることを確認してください。

お礼

回答ありがとうございます。
私はＶＢＡは詳しくないのですが関数を自作できるのに驚きました、実質1行で済むのは魅力ですね。

回答No.4

non23

私はいつもこうしてます。
・スペースを●に置換する→”●で終わる”でフィルタをかける→ひとつずつ消す
件数が少ないときしかできませんけど‥。

お礼

回答ありがとうございます。
件数は3000件以上あります、私も最初似た様なことをしたのですが大変でした（涙）

回答No.3

yachin

Trimだと、文字間のスペースが一つになりませんか？
質問の文面を見ると、スペースが２つある例が見受けられます。ＶＢＡを使ったほうが早いのでは？

Private Sub 右側空白セル削除()
Dim c As Variant

For Each c In Worksheets("Sheet1").Range("A1:C100") '< ----ここで領域をセットをする
c.Value = RTrim$(c.Value)
Next c
End Sub

お礼

>Trimだと、文字間のスペースが一つになりませんか？
質問の文面を見ると、スペースが２つある例が見受けられます。
確かにその通りなのですが実は氏名データを扱っているため間のスペースは一つになるのが助かるのでしたｍ（＿＿）ｍ。
苗字が一文字の人は逆に空白を増やして「今　　一郎」のように間二つにしたいんですけど、「今　助三郎」のように名前が４文字以上の場合空白は一文字にしています。よって空白２文字は極端に少ないのでとりあえずＴＲＩＭをかけて後で調整が良いようです。
ご回答ありがとうございました！

回答No.2

taknt

TRIM では 残念ながら 末尾だけの空白を削除というわけには いきません。

先頭についている 空白も削除されてしまうからです。
そこらへんを考慮して使う必要があります。

なお、末尾だけ削除にするには
Ａ１に入ってるものと前提して

=RIGHT(TRIM("a" & A1),LEN(A1)-1)

という風に 先頭にダミーの一文字をつければ
末尾の空白だけ削除ができます。

お礼

お答えありがとうございます。
先頭にダミーをつける考え方が自分にとって斬新でした。