エクセルで全ての数字間にカンマを付けたい

質問

エクセルの数字間にカンマを付けるには
どうすればよいでしょうか。

例をあげると
123
456
789
を
1,2,3
4,5,6
7,8,9

としたいです。よろしくお願いします。

回答No.11

layy · ベストアンサー

関数もVBAも知らない、だろう。やり方なんてのはいろいろあるので、知らない事覚えるか知っていることでやるか質問者都合でしょう。すべてのやり方を覚える必要もない。

「１」を「１，」
「２」を「２，」
と０から９まで
１０回置換するとほぼ作業終わり。

結果
「１，２，３，」
「４，５，６，」
になる末尾だけ悩めばよいが、RIGHT関数がある。SUBSTITUTE等と違い普段使う関数ではないだろうか。

10で割った余りが１の位
100で割った余りが１０の位
分解もある。

これならわかる、その形はないか？。

やりやすいのは何？、
指定がないと、回答まだ出るのでは？。

回答No.10

wisemac21

A1にデータがあるとすると
=TEXT(A1,"0!,0!,0")
結果をコピーして、値を貼り付ける。

回答No.9

keithin

セル範囲を選び，右クリックしてセルの書式設定の表示形式のユーザー定義で
[>999]0","0","0","0;[>99]0","0","0;0","0
と設定し，３桁か２桁か４桁の数字をそのまま記入します。

＃具体的なヤリタイ事が，３桁若しくは２桁か４桁という限定です。
　野放図にナンデモは出来ません。

回答No.8

Wendy02

関数なら

=TEXT(A1,"#"& REPT("!,#",LEN(A1)-1))

VBAなら、このようにすればよいと思います。
'//
Sub Test1()
Dim d As String
Dim c As Variant
Dim r As Range
Dim rng As Range
Set r = ActiveCell '列の先頭のセルを選択
Set rng = Range(r, Cells(Rows.Count, r.Column).End(xlUp))
　 Application.ScreenUpdating = False
　 For Each c In rng
　　 If IsNumeric(c) Then
　　　d = Trim(Format(c.Value, Application.Rept(" #", Len(c.Value))))
　　　c.Value = Replace(d, Space(1), ",")
　　 End If
　 Next c
　 Application.ScreenUpdating = True
End Sub

回答No.7

tom04

こんばんは！
横からお邪魔します。
VBAでの方法になってしまいますが・・・
画面左下にある操作したいSheet見出し上で右クリック　→　コードの表示　→　VBE画面がでますので
↓のコードをコピー＆ペーストしてマクロを実行してみてください。
（Alt＋F8キー　→　マクロ　→　マクロ実行　です）
データは1行目からあるものとしています。

Sub test() 'この行から
Dim i, j, k As Long
Dim str, buf As String
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
'2行目からのデータであれば上記の「1」を「2」に訂正してください。

On Error Resume Next
For j = 1 To Cells(i, Columns.Count).End(xlToLeft).Column
For k = 1 To Len(Cells(i, j))
str = Mid(Cells(i, j), k, 1)
buf = buf & str & ","
Next k
Cells(i, j) = Mid(buf, 1, Len(buf) - 1)
buf = ""
Next j
Next i
End Sub 'この行まで

尚、一旦マクロを実行すると元に戻せませんので別Sheetにコピー＆ペーストしてマクロを試してみてください。

参考になれば良いのですが・・・m(__)m

回答No.6

mu2011

NO2です。
同一セルの変更なのでやはりマクロ（ＶＢＡ）は如何でしょうか。
（１）別シートにデータをコピーしてコピー先のシートタブで右クリック→以下のコードを貼り付け→Ｆ５キー押下

Sub aaa()
area = Range("A1:D300")
For i = 1 To 300
For j = 1 To 4
Leng = Len(area(i, j))
For k = 1 To Leng - 1
char = Mid(area(i, j), k, 1)
wk = wk & char & ","
Next
area(i, j) = wk & Right(area(i, j), 1)
wk = ""
Next
Next
Range("A1:D300") = area
End Sub

回答No.5

maron--5

◆桁数は最大15桁まで、回答は10桁までです
=SUBSTITUTE(TRIM(TEXT(A1,"# # # # # # # # # #"))," ",",")

回答No.4

KURUMITO

もしもA1セルから下方に3ケタの数字があるのでしたらB1セルには次の式を入力して下方にオートフィルドラッグします。

=IF(A1="","",MID($A1,1,1)&","&MID($A1,2,1)&","&MID($A1,3,1))

回答No.3

sarugetu

良い方法が思いつかないので泥臭い方法です。。。

A列に該当のデータがあったとして、
A列を選択し、「区切り位置」機能で「固定長フィールドのデータ」を選択することで、
A列を1文字づつの列に分けられると思います。

例：
A1「12345」
↓
A1「１」　B1「2」　C1「3」　D1「4」　E1「5」

あとは、F1などで
=A1&","&B1&","&C1&","&D1&","&E1
とすればF1に「1,2,3,4,5」が完成するかと思います。

どうでしょう。

回答No.2

mu2011

例示の通り、桁数も少なく、固定長なら関数でも可能だがマクロ（ＶＢＡ）の方が拡張性があります。
具体的な条件を補足して下さい。

補足

エクセルは初心者なので、専門的な
用語で説明できず申し訳ありません。

基本的に3ケタの数字のセルが
300行×4列あります。

数字には20個に一つくらいの割合で、
2ケタや4ケタになっているものがあります。

回答No.1

4500rpm

セルの書式を「文字列」にし、数字の間にカンマを入れる。
数字に規則性があれば、「置換」が使えるかも。