特定の文字列の後の数値を加算

質問

エクセル（マクロ？）で、特定の一部の数値のみを加算する方法をご教授下さい。

元々テキストから持ってきた下記の様な文字列の
一部の数値だけを1ずつ加算したいのです。
---------------------------------------
KKKKKKKKKKKKKKKK12　360X
JJJJJJJJJJJJJJJJJJJ12　666Y
LLLLLLLLLLLLLLLLLLL12　999M
---------------------------------------
上図では[12]部分だけを簡単に13～XXXまで簡単に作成。

KKKKKKKKKKKKKKKK12　360X
JJJJJJJJJJJJJJJJJJJ12　666Y
LLLLLLLLLLLLLLLLLLL12　999M

↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓

KKKKKKKKKKKKKKKK13　360X
JJJJJJJJJJJJJJJJJJJ13　666Y
LLLLLLLLLLLLLLLLLLL13　999M

KKKKKKKKKKKKKKKK14　360X
JJJJJJJJJJJJJJJJJJJ14　666Y
LLLLLLLLLLLLLLLLLLL14　999M

KKKKKKKKKKKKKKKK15　360X
JJJJJJJJJJJJJJJJJJJ15　666Y
LLLLLLLLLLLLLLLLLLL15　999M
　　　　　　　・
　　　　　　　・
　　　　　　　・
　　　　　　　・
　　　　　　　・
　　　　　　　・

よろしくお願い致します。

回答No.2

kagakusuki · ベストアンサー

関数でも可能です。
　今仮に、元の文字列がSheet1のA列に入力されていて、Sheet3のA列～D列を作業列として使用して、Sheet2のA列に結果を表示させるものとします。

　まず、Sheet3のA1セルに次の数式を入力して下さい。

=IF(SUMPRODUCT(ISNUMBER(RIGHT(LEFT(Sheet1!$A1,FIND(" ",ASC(Sheet1!$A1))-1),ROW(INDIRECT("Z1:Z"&FIND(" ",ASC(Sheet1!$A1))-1)))+0)*1),SUMPRODUCT(ISNUMBER(RIGHT(LEFT(Sheet1!$A1,FIND(" ",ASC(Sheet1!$A1))-1),ROW(INDIRECT("Z1:Z"&FIND(" ",ASC(Sheet1!$A1))-1)))+0)*1),"")

　次に、Sheet3のB1セルに次の数式を入力して下さい。

=IF($A1="","",LEFT(Sheet1!$A1,FIND(" ",ASC(Sheet1!$A1))-1-$A1))

　次に、Sheet3のC1セルに次の数式を入力して下さい。

=IF($A1="","",MID(Sheet1!$A1,FIND(" ",ASC(Sheet1!$A1))-$A1,$A1)+0)

　次に、Sheet3のD1セルに次の数式を入力して下さい。

=IF($A1="","",REPLACE(Sheet1!$A1,1,FIND(" ",ASC(Sheet1!$A1))-1,))

　次に、Sheet3のA1～D1の範囲をコピーして、同じ列の2行目以下に貼り付けて下さい。
　次に、Sheet2のA1セルに次の数式を入力して下さい。

=IF(COUNT(Sheet3!$A:$A),IF(MOD(ROWS($1:1),MATCH(99,Sheet3!$A:$A)+1),INDEX(Sheet3!$B:$B,MOD(ROWS($1:1),MATCH(99,Sheet3!$A:$A)+1))&INDEX(Sheet3!$C:$C,MOD(ROWS($1:1),MATCH(99,Sheet3!$A:$A)+1))+ROUNDUP(ROWS($1:1)/(MATCH(99,Sheet3!$A:$A)+1),0)&INDEX(Sheet3!$D:$D,MOD(ROWS($1:1),MATCH(99,Sheet3!$A:$A)+1)),""),"")

　次に、Sheet2のA1セルをコピーして、Sheet2のA2以下に貼り付けて下さい。

　以上です。

お礼

詳細なご説明に加え、実行画像まで添付頂きありがとうございました。

頂いた内容で近々試してみます！

回答No.1

keithin

ＡＬＴ＋Ｆ１１を押す
現れた画面で挿入メニューから標準モジュールを挿入する
現れたシートに下記をコピー貼り付ける

Public Function getnum(ByVal target As Excel.Range) As Variant
　Dim a
　Dim s
　Dim i

’スペースの確認
　If InStr(target(1), " ") > 0 Then
　　s = " "
　Else
　　s = "　"
　End If

’取り出して計算
　a = Split(target(1), s)
　For i = Len(a(0)) To 1 Step -1
　　If Not IsNumeric(Mid(a(0), i, 1)) Then Exit For
　Next i
　a(0) = Left(a(0), i) & (0 & Mid(a(0), i + 1, 99)) + 1

　getnum = Join(a, s)
End Function

ファイルメニューから終了してエクセルに戻る

KKKKKKKKKKKKKKKK12　360X
JJJJJJJJJJJJJJJJJJJ12　666Y
LLLLLLLLLLLLLLLLLLL12　999M
のような文字列がたとえばＡ１：Ａ３に入っていたとすると，続きのＡ４に
=getnum(A1)
と数式を入れ，下向けに必要なだけつらつらっとコピー貼り付ける。

必要に応じてコピーしてその場で形式を選んで値のみ貼り付け，値化する。

＃参考
ご質問の例示では「KK13」と「360X」の間が「全角のスペース」になっていますが，これがホントに正しくて，間違いなくそれしか挟まってない(たまに半角のスペースとかになっていることは無い）なら，もう少し簡単なマクロになります。

＃参考
後ろにくっついている「999M」とかの文字数が例示のように本当に固定なら，もっと簡単になります。

＃参考
例示ではナントナク「KKKKK」みたいに書いてますが，この途中に数字とか出てくる可能性がホントに無いのか，寄せられる回答も含めて確認が必要かもしれません。

こういった留意点が沢山出てくるのは，ひとえにアナタの例示がアバウトすぎるからだという見方も出来ます。支障のない範囲で「こういうデータです」ってのを，出来るだけ本番データをコピーして実地に沿って提示するように心がけてみてください。

お礼

ありがとうございました