Excelで文字列の先頭にある1?4桁の数字のみを削除したい｡今､A列に下記のようなﾃﾞｰﾀが並んでおりまして､各文字列の先頭に､以下のような数字がくっ付いております｡ …

人力検索はてな

ﾓﾊﾞｲﾙ版を表示しています｡PC版はこちら

Excelで文字列の先頭にある1?4桁の数字のみを削除したい｡
今､A列に下記のようなﾃﾞｰﾀが並んでおりまして､各文字列の先頭に､以下のような数字がくっ付いております｡

1りんご
2ごりら
3らっぱ
4ﾊﾟﾙﾃﾉﾝ神殿
･
･
11ぶどう
･
･
･
101瓜
･
･
･
1001りんご
･
･
1999ごりら
･
･
1らっぱ
2ﾊﾟｲﾅｯﾌﾟﾙ
3ﾙｲ14世
･
･

と､頭に1?4桁の数字がﾗﾝﾀﾞﾑ入ってまして｡
なんとか関数やﾏｸﾛで効率的に､これらの数字を削除できる方法があれば…お教えいただけますと幸いです｡
よろしくお願い致します｡

●質問者: moon-fondu
●ｶﾃｺﾞﾘ:ｺﾝﾋﾟｭｰﾀ学習･教育
○ 状態 :終了
└ 回答数 : 2/2件

▽最新の回答へ

▽1 ● a-kuma3
●800ﾎﾟｲﾝﾄ

ﾍﾞｽﾄｱﾝｻｰ

こんな感じでどうでしょう｡

Sub cut_number()
 source_col = 1  ' A列
 last_row = Cells(Rows.Count, source_col).End(xlUp).Row
 Set re = CreateObject("VBScript.RegExp")
 re.Pattern = "^\d{1,4}"
 For r = 2 To last_row
 s = Cells(r, source_col).Value
 s = re.Replace(s, "")
 Cells(r, source_col).Value = s
 Next
End Sub

標準ﾓｼﾞｭｰﾙに､上記のｺｰﾄﾞを貼り付けて､cut_number ｻﾌﾞﾙｰﾁﾝを実行してください｡
先頭行は､ﾀｲﾄﾙ行だと想定して､2行目から開始します｡

moon-fonduさんのｺﾒﾝﾄ
すごいです､うまくいきました！

▽2 ● Asayuri
●200ﾎﾟｲﾝﾄ

1．ｾﾙB1に次の関数式を入れてから最期の行までｺﾋﾟｰ貼り付けしていきます

=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A1,"0",""),"1",""),"2",""),"3",""),"4",""),"5",""),"6",""),"7",""),"8",""),"9","")

2．B列をｺﾋﾟｰして A列に値貼り付けすればご希望のﾃﾞｰﾀが出来上がります

moon-fonduさんのｺﾒﾝﾄ
ありがとうございます！数字が全部消えました(^^;) 先頭以外の､文字列の中の数字も消してしまうのですね｡

Asayuriさんのｺﾒﾝﾄ
次回はﾍﾞｽﾄ回答を目指します