エクセル セル内の一定文字の置換

以下のように、一つのセルに、数字がカンマで区切られて入力されているデータが数万件あります。
Ａ列１行目
「10, 20, 30, 40, 50, 80, 110, 120, 130」
Ａ列２行目
「10, 20, 40, 80, 110, 130」
Ａ列３行目
「50, 100, 110, 120, 130」

●それぞれ、２桁の数字を、始めに「0」をつけて、３桁にしたいです。
●セルは全て文字列設定になっています。
●「10」を検索し、「010」に置換えようとしたら、「110」も検索対象になってしまい、「1010」になってしまいました。

★完成させたい答え
１行目
「010, 020, 030, 040, 050, 080, 110, 120, 130」
２行目
「010, 020, 040, 080, 110, 130」
３行目
「050, 100, 110, 120, 130」

関数などで短時間で出来る方法を教えて下さい。よろしくお願いします。

No.1 回答者： Nouble 回答日時： 2006/11/28 18:55

１０を検索するのではなく

０,を検索して０,０に置き換えては如何でしょうか?

ワイルドカードでいうところの「１文字」を表す「.」を使って
.,.→.,０.
でも良いかもしれませんね

No.2 回答者： cafe_au_lait 回答日時： 2006/11/28 18:59

以下の手順でいかがでしょうか？

新しいブックのA列にコピー
A列を選択して、メニューのデータ→区切り位置でカンマにて分ける
数字の入ったセルを含む範囲（全体でもいいです）を選択して、右クリック→セルの書式設定を選択
表示形式タブでユーザー定義を選択、右側に"000"と入力
名前を付けて保存　ファイルの種類からCSV(カンマ区切り)を選択
メモ帳などで開く

No.3 回答者： goowon 回答日時： 2006/11/28 19:13

セルの書式設定→ユーザー定義→0##

No.4 回答者： ham_kamo 回答日時： 2006/11/28 21:08

１．Alt+F11を押す。

２．VBAの画面になるので、右側の画面に以下のマクロをコピーして貼り付ける。

Sub format3keta()
　　Dim r As Range
　　Dim s As Variant
　　Dim i As Integer
　　Dim NewStr As String
　　
　　For Each r In Range("A1", Range("A65536").End(xlUp))
　　　　s = Split(r.Value, ",")
　　　　NewStr = ""
　　　　For i = 0 To UBound(s)
　　　　　　If i = 0 Then
　　　　　　　　NewStr = Format(s(i), "000")
　　　　　　Else
　　　　　　　　NewStr = NewStr & "," & Format(s(i), "000")
　　　　　　End If
　　　　Next
　　　　r.Value = NewStr
　　Next
End Sub

３．そのままF5キーを押す。

４．Excelの画面に戻ると３桁に揃っているはず。

この回答へのお礼

ご回答ありがとうございました。
一度に出来て感激しました。（VBAを勉強していないので意味があまり理解出来ていないのですが・・）

１つ、再度質問させてください。
このマクロだと、１列のみの実行だと思います。
いくつもの列に対して実行したい場合は、VBA画面を開き、列番号を変更して実行（Ｆ５）する事を何度か行うしか方法はないでしょうか？
たびたびの質問ですみませんがよろしくお願いします。

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

No.5 回答者： maron--5 回答日時： 2006/11/29 06:28

◆関数による回答ですが、どうしても作業列が必要です

　　　　A　　　　　　　　　　　　　　　　　　　　　　　B　　　　　　　　　　　　　　　　　　　　　　　　　　C　　D
1　10, 20, 30, 40, 50, 80, 110, 120, 130　　010, 020, 030, 040, 050, 080, 110, 120, 130　　8　　6
2　10, 20, 40, 80, 110, 130　　　　　　　　　　010, 020, 040, 080, 110, 130　　　　　　　　　　　5　　4
3　50, 100, 110, 120, 130　　　　　　　　　　　050, 100, 110, 120, 130　　　　　　　　　　　　　　4　　1

C1=LEN(A1)-LEN(SUBSTITUTE(A1,",",))
D1=SUMPRODUCT(N(MOD(FIND("♪",SUBSTITUTE(" "&A1,",","♪",ROW(INDIRECT("1:"&C1)))),4)=0))
B1=MID(SUBSTITUTE(LEFT(" "&A1,FIND("♪",SUBSTITUTE(" "&A1,",","♪",(D1))))," "," 0"),2,LEN(A1))&REPLACE(A1,1,FIND("♪",SUBSTITUTE(" "&A1,",","♪",(D1)))-1,)
★共に下にコピー

この回答へのお礼

ご回答、ありがとうございました。
ある程度は正しい答えが出たのですが、完璧ではなかったので、再度質問させて下さい。

10, 30, 50, 70, 80, 100, 110, 130, 140, 160
↓
010, 030, 050, 070, 080, 0100, 0110, 130, 140, 160

上記のように、100と110のみ、４桁になってしまいます。
※ただ、絶対４桁になるわけでもありません。３桁のまま正しい答えが出るものもあります。
申し訳ありませんが、よろしくお願い致します。

お礼日時：2006/11/29 09:21

No.6 ベストアンサー 回答者： ham_kamo 回答日時： 2006/11/29 10:20

No.4です。

失礼しました。データが入っているのはＡ列だけではないのですね。
それでは以下のようにマクロを上書きしてください。
データが数万件もあると、かなり時間がかかるかもしれません。
なにか不具合が起こったときのために、元のファイルのバックアップはとっておいた方がよいでしょう。

Sub format3keta()
　　Dim r As Range
　　Dim s As Variant
　　Dim i As Integer
　　Dim NewStr As String

　　For Each r In ActiveSheet.UsedRange
　　　　If r.Value <> "" Then
　　　　　　s = Split(r.Value, ",")
　　　　　　NewStr = ""
　　　　　　For i = 0 To UBound(s)
　　　　　　　　If i = 0 Then
　　　　　　　　　　NewStr = Format(s(i), "000")
　　　　　　　　Else
　　　　　　　　　　NewStr = NewStr & "," & Format(s(i), "000")
　　　　　　　　End If
　　　　　　Next
　　　　　　r.Value = NewStr
　　　　End If
　　Next
End Sub

この回答へのお礼

早急なご対応、本当に感謝しています。業務が止まらず作業出来、助かりました。そして、本当、たびたびで申し訳ないのですが、あと１点教えて頂けますでしょうか。

今回お教えいただいたのは、それぞれのNoの前に「0」をつけるものでしたが、今度は、後ろに「0」をつける方法もお教え頂けますか。

●
Ａ列１行目
「01, 02, 03, 04, 05, 08, 110, 120, 130」
Ａ列２行目
「01, 02, 04, 08, 110, 130」
Ａ列３行目
「05, 100, 110, 120, 130」

★完成させたい答え
１行目
「010, 020, 030, 040, 050, 080, 110, 120, 130」
２行目
「010, 020, 040, 080, 110, 130」
３行目
「050, 100, 110, 120, 130」

※違うパターンのデータを見つけてしまい困ってしまいました。マクロのどこかを変えればいいのだと思い考えてみたのですが、意味を理解していない為、修正出来ませんでした。
よろしくお願い致します。

お礼日時：2006/11/29 11:45

No.7 回答者： ham_kamo 回答日時： 2006/11/29 12:16

修正してみました。

「データが２桁で0から始まる場合、後ろに0を付け足す」という処理を入れています。
他のパターンはないですか？１桁の場合とか．．．

Sub format3keta()
　　Dim r As Range
　　Dim s As Variant
　　Dim i As Integer
　　Dim NewStr As String, Val As String
　　
　　For Each r In ActiveSheet.UsedRange
　　　　If r.Value <> "" Then
　　　　　　s = Split(r.Value, ",")
　　　　　　NewStr = ""
　　　　　　For i = 0 To UBound(s)
　　　　　　　　If Len(s(i)) = 2 And Left(s(i), 1) = "0" Then
　　　　　　　　　　Val = s(i) & "0"
　　　　　　　　Else
　　　　　　　　　　Val = Format(s(i), "000")
　　　　　　　　End If
　　　　　　　　If i = 0 Then
　　　　　　　　　　NewStr = Val
　　　　　　　　Else
　　　　　　　　　　NewStr = NewStr & "," & Val
　　　　　　　　End If
　　　　　　Next
　　　　　　r.Value = NewStr
　　　　End If
　　Next
End Sub

この回答へのお礼

何度も申し訳ありません。

説明が不足していました。
「２桁で０から始まる場合のみ」ではなく、「２桁のものは全て後ろに０をつける」が必要です。
全く違う経路からきたデータがあるとわかったのです。

よって、さきほど教えて頂いたもの（２桁のNoの前に「0」をつけ、３桁にする）とは別に、「２桁のNoの後ろに「0」をつける」を新しく教えて頂ければと思います。

よろしくお願いします。

お礼日時：2006/11/29 12:38

No.8 回答者： ham_kamo 回答日時： 2006/11/29 13:21

なるほど、前とは別のデータで、別の方法で処理したいということですね。

それでは、そっち専用のマクロが必要ですね。ちょっとの修正でできました。最初のマクロとは別の処理をするので、マクロの名前も変えてあります（2と名前の後ろにつけただけですが）

Sub format3keta2()
　　Dim r As Range
　　Dim s As Variant
　　Dim i As Integer
　　Dim NewStr As String, Val As String
　　
　　For Each r In ActiveSheet.UsedRange
　　　　If r.Value <> "" Then
　　　　　　s = Split(r.Value, ",")
　　　　　　NewStr = ""
　　　　　　For i = 0 To UBound(s)
　　　　　　　　Val = Left(Trim(s(i)) & "000", 3)
　　　　　　　　If i = 0 Then
　　　　　　　　　　NewStr = Val
　　　　　　　　Else
　　　　　　　　　　NewStr = NewStr & "," & Val
　　　　　　　　End If
　　　　　　Next
　　　　　　r.Value = NewStr
　　　　End If
　　Next
End Sub

この回答へのお礼

ありがとうございました。
少しずつＶＢＡを勉強すれば、もっとエクセルを活用できることがわかり、又また感謝してしまいました。

お礼日時：2006/11/29 14:19