エクセル：セル内の文字列の最後の「,]を消したい。

質問

エクセル：セル内の文字列の最後の「,]を消したい。

以下のように、数字（１桁または２桁）がカンマでわかれたデータがあります。
この文字列の中で、一番最後の「,」だけ消したいのですが、
何か良い方法はないでしょうか。

1,1,1,1,　⇒最後のカンマを消したい
1,2,3,4　　⇒カンマがないのでそのままでOK
1,1,2,3,4　
1,2,3,　　
1,11,12,

回答No.4

某HN クロメート(Chromate)（@CoalTar） · ベストアンサー

こんなんでもいいかも
=SUBSTITUTE(TRIM(SUBSTITUTE(A1,","," "))," ",",")
とか
=LEFT(A1,LEN(A1)-(RIGHT(A1,1)=","))

お礼

画像まで！ありがとうございます！

回答No.6

有田 賢治（@ARIKEN43）

ZentenZenさん 今日は！
＞以下のように、数字（１桁または２桁）がカンマでわかれたデータがあります。
＞この文字列の中で、一番最後の「,」だけ消したいのですが、何か良い方法はないでしょうか。
データ数が少なければ、該当セルをアクチィブにしツールバーにデータが表示されるので[,]を削除。
一括して削除するなら下記の操作で記録マクロを作成して実行します。
「ツール」→「マクロ」→「新しいマクロの記録」で手順を記録します。操作法は下記を参照下さい。
■マクロの記録
http://kiyopon.sakura.ne.jp/sousa/index.html
概要：メニューやコマンドの選択，キーストロークなど，特定の処理を行うための一連の操作をそのままマクロとして記録することが可能で，キーボードからコマンドを入力することはありません。

お礼

量が多いので、ひとつひとつはちょっと。。
なかなかマクロが使えません。。

回答No.5

layy

１，，とか最後２個以上は発生しませんか

右１文字がカンマなら全体の文字数－１分の文字列を左から抜き取る、この原理の繰り返しです。８文字あったら７文字分抜く。

回答No.3

ziziwa1130

No.2です。
添付画像忘れていました。

回答No.2

ziziwa1130

添付画像のようにデータが入っているとします。
次のマクロを実行すれば良いですよ。
Sub Macro1()
Dim ST As String
Range("A1").Select
While ActiveCell.Value <> Empty
ST = ActiveCell
If Right$(ST, 1) = "," Then
ActiveCell.FormulaR1C1 = Left$(ST, Len(ST) - 1)
End If
ActiveCell.Offset(1, 0).Select
Wend
End Sub

お礼

ありがとうございます。
ただ、マクロはなかなか難しくて・・・

回答No.1

KURUMITO

Ａ列にデータがあるとして、Ｂ１セルには次の式を入力して下方にオートフィルドラッグします。

=IF(A1="","",IF(RIGHT(A1,1)=",",LEFT(A1,LEN(A1)-1),A1))