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

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

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


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

No.4 ベストアンサー 回答者： CoalTar 回答日時： 2010/06/09 14:19

こんなんでもいいかも

=SUBSTITUTE(TRIM(SUBSTITUTE(A1,","," "))," ",",")
とか
=LEFT(A1,LEN(A1)-(RIGHT(A1,1)=","))

この回答へのお礼

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

お礼日時：2010/08/16 16:36

No.6 回答者： ARIKEN43 回答日時： 2010/06/09 19:10

ZentenZenさん 今日は！

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

この回答へのお礼

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

お礼日時：2010/08/16 16:36

No.5 回答者： layy 回答日時： 2010/06/09 15:28

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

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

No.3 回答者： ziziwa1130 回答日時： 2010/06/09 14:02

No.2です。

添付画像忘れていました。

No.2 回答者： ziziwa1130 回答日時： 2010/06/09 13:51

添付画像のようにデータが入っているとします。

次のマクロを実行すれば良いですよ。
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

この回答へのお礼

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

お礼日時：2010/08/16 16:35

No.1 回答者： KURUMITO 回答日時： 2010/06/09 13:49

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

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