VBA文字抽出について

質問

添付ファイルのような青文字だけを抽出したいです。作成したVBAでは添付ファイルの6、8行目「0」が消えてしまいます。どなたかアドバイスお願いします。また他に方法があれば教示いただければ幸いです。
Sub test()
Dim j As Long, tmp As Variant
For j = 1 To Cells(Rows.Count, 1).End(xlUp).Row
tmp = Split(Cells(j, 1), "/")
Cells(j, 2) = tmp(1)
tmp = Split(Cells(j, 2), "-")
Cells(j, 3) = tmp(0)
Cells(j, 4) = tmp(1)
Cells(j, 5) = Cells(j, 3) & "-" & Cells(j, 4)
Next j
End Sub

この投稿のマルチメディアは削除されているためご覧いただけません。

回答No.1

f272 · ベストアンサー

青文字だけを抽出したいのなら，途中の文字列をセルに書き出す必要はないのでは？
Sub test()
Dim j As Long, tmp As Variant
For j = 1 To Cells(Rows.Count, 1).End(xlUp).Row
tmp = Split(Cells(j, 1), "/")
tmp2 = tmp(1)
tmp = Split(tmp2, "-")
tmp2 = tmp(0)
tmp3 = tmp(1)
Cells(j, 5) = tmp2 & "-" & tmp3
Next j
End Sub

お礼

早速実行してみました。 希望通り作成することができました。ありがとうございました。

回答No.3

山田 太郎（@f_a_007）

【補足】どうしても、マクロで処理したければ・・・

Public Sub test()
　　Dim J　 As Long
　　Dim Tmp As Variant

　　For J = 1 To Cells(Rows.Count, 1).End(xlUp).Row
　　　 Tmp = Cells(J, 1)
　　　 Cells(J, 5) = CutStr(CutStr(Tmp, "／", 2), "－", 1) & "－" & _
　　　　　　　　　CutStr(CutStr(Tmp "／", 2), "－", 2)
　　Next J
End Sub

と、書いた方が、他人が読んでも一目でわかると思う。

お礼

アドバイスありがとうございました。

回答No.2

山田 太郎（@f_a_007）

【参考意見】これは、CutStr()を書けば事足りると思いますよ。

Public Function CutStr(ByVal Text As String, _
　　　　　　　　　　　ByVal Separator As String, _
　　　　　　　　　　　ByVal N As Integer) As String
　　Dim strDatas() As String

　　strDatas = Split("" & Separator & Text, Separator, , 0)
　　CutStr = strDatas(N * Abs(N <= UBound(strDatas)))
End Function

　この僅か3行の CutStr()を標準モジュールに登録すれば、割と簡単に目的を達成できます。

※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※

=CutStr(CutStr(A1,"／",2),"－",1) & "－" & CutStr(CutStr(A1,"／",2),"－",2)

※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※

　まあ、ちょいと式が複雑になりますが、一々VBAコードを書くケースではないと思います。

お礼

回答ありがとうございました。