Excel2007 マクロ 特定セルの文字列抽出

質問

Excel2007 マクロ 特定セルの文字列抽出

A列に100行程度、製品番号が入っています。
例えばAAAA-NNN-BBBB-UUUUUUUとある場合に
NNNだけを抽出して、B列に転記します。

関数であれば、Mid関数で解決できるのですが、
マクロで解決したいです。

下記を自分で考えたのですが、エラーが発生します。
アドバイスお願いいたします。

Sub moji()
Dim last As Long, i As Long
Dim strt As Integer
'A列「製品番号」から文字を抽出してB列に反映
last = Range("A65536").End(xlUp).Row

For i = 2 To last
strt = Mid("A", 7, 3)
Cells(i, "B") = strt
Next i
End Sub

回答No.2

jcctaira · ベストアンサー

Sub moji()
　Dim last As Long, i As Long
　Dim strt As String
　'A列「製品番号」から文字を抽出してB列に反映
　last = Range("A65536").End(xlUp).Row

　For i = 2 To last
　　strt = Mid(Cells(i, "A"), 6, 3)
　　Cells(i, "B") = strt
　Next i
End Sub

※「Dim strt As Integer」→「Dim strt As String」
　数字ならIntegerでも良いですが、Stringの方が安全だと思います。
※「strt = Mid("A", 7, 3)」→「strt = Mid(Cells(i, "A"), 6, 3)」
　"A"だと"A"という文字の7桁目から３桁になってしまい、必ず空文字になってしまいます。
　また、AAAA-NNN-BBBB-UUUUUUUのNNNは６桁目からだと思います。
　それをstrt（数字）に代入するからエラーになります。

お礼

ご回答ありがとうございました。エラーの原因まで解説して頂きましてありがとうございました。助かりました。

回答No.1

mu2011

>Dim strt As Integer
　⇒Dim strt As Stringで文字列のデータ属性

>strt = Mid("A", 7, 3)
　⇒strt = Mid(Cells(i,"A"), 6, 3)ではないでしょうか。

お礼

ご回答ありがとうございました。早い回答に助かりました。