エクセルで金額区切りのカンマを作成

ちょっと説明しづらいですが、
Ａ列に数値が入っていて(桁数は不定)、通常はツールバーの［,］を使用
すれば"1,000,000"の様に表示となりますが、ある処理のため表示では
無く実際にカンマ入りとしたいのですが・・・。
'1,000,000 とすれば可能ですが、とても手作業で行えるようなデータ量
ではありません。
どなたか良い方法をご存知でしたらご教授下さい。

No.5 ベストアンサー 回答者： mu2011 回答日時： 2006/07/10 16:44

次の方法をお為し下さい別の列を選択して、=TEXT(A1,"#,##0")→ｃｔｒｌ＋ｅｎｔｅｒとして、別列を選択してコピー後、コピー先で「形式を選択して貼り付け」を選択して「値」のみで実行して下さい。

この回答への補足

ありがとうございます。
やはりある程度の力技でないと無理みたいですね。

補足日時：2006/07/10 18:07

No.6 回答者： imogasi 回答日時： 2006/07/10 21:59

エクセルでは桁区切りのカンマを値としたいなら、文字列にするしか有りません。

VBAで
Sub test01()
d = Range("A65536").End(xlUp).Row
For i = 1 To d
v = Cells(i, "A")
s = ""
P = 0
For j = Len(v) To 1 Step -1
P = P + 1
s = Mid(v, j, 1) & s
If P Mod 3 = 0 And P <> Len(v) Then
s = "," & s
End If
Next j
Cells(i, "A") = "'" & s
Cells(i, "A").HorizontalAlignment = xlRight
Next i
End Sub
が質問に近いかなと思います。VBAでしかできないの、というなら、
それだけ質問はエクセルに対し、珍奇な要求であるということです。

この回答へのお礼

ありがとうございます。
>VBAでしかできないの、というなら、
いえ、別にＶＢＡでしかできないのとは言いません。
どんな形であれできれば結構です。

お礼日時：2006/07/11 09:32

No.4 回答者： surounin 回答日時： 2006/07/10 16:04

＃１さんと同じで

=Text(セル,"#,###")

#は0を表示しないと言う意味です。
0を表示したければ

=Text(セル,"0,000")

No.3 回答者： dac203 回答日時： 2006/07/10 15:20

EXCEL上で一発で変更できる方法の有無はわかりませんが、力技なら(^^;)。

まず表示を"1,000,000"の様にしておき、一度TXT出力。それを再度読み込む際に、列の形式を文字列として読み込めばカンマ付きのままになります（当然文字扱い）。

他の部分との兼ね合いもあるでしょうから（関数の有無とか）、そのまま使うというわけにはいかないと思いますが、手でカンマを入れるよりは早いかと(^^;)。

この回答への補足

ありがとうございます。
実はご指摘の方法で一度試したことはありました
が、その該当のセルが一定の行や列では無く、再読み込みした際には
形が崩れてしまいました。

補足日時：2006/07/10 15:31

No.2 回答者： legacy7010 回答日時： 2006/07/10 14:03

金額が入力されるセル、行、列のセルの書式設定を変更すれば大丈夫です。

具体的には、該当のセルを右クリックして、セルの書式設定を選びます。
表示形式のタブのうち、分類が標準になっていると思います。
ここを通貨にすれば、カンマが入ります。

あとは、このセルを縦でも横でもコピーすれば同じようになるはずです。

この回答への補足

この方法は判りますが、これですと質問の表示だけとなります。
表示も実データもカンマ入りとしたいのですが・・・。

補足日時：2006/07/10 14:50

No.1 回答者： akio_myau 回答日時： 2006/07/10 13:53

A1に情報があるとして別のセルに

=TEXT(A1,"#,###")としてはどうでしょうか。