投稿/コメントを表示します。

エクセルマクロ・VBA基礎編フォローアップ アドバンスド
セル内の文字列から区切り文字を見つけ、その区切り文字の間にある文字列を切り出す

金子　伊智郎さんの投稿

(投稿ID: 3458)

mae, ato を利用して文字列を切り出すやり方がわかりにくかったので
1文字ずつ連結していく方法で作ってみました。
とりあえず結果は同じになりました。
Sub mondai5()
    Dim mojiretsu
    Dim idx
    Dim yakuwari
    Dim gyo
    Dim hidari
    
    gyo = 2
    For hidari = 2 To 7
        yakuwari = Range("D" & hidari).Value
        For idx = 1 To Len(yakuwari)
            If Mid(yakuwari, idx, 1) = "、" Then
                Range("G" & gyo).Value = Range("B" & hidari).Value
                Range("L" & gyo).Value = mojiretsu
                gyo = gyo + 1
                mojiretsu = ""
            Else
                mojiretsu = mojiretsu & Mid(yakuwari, idx, 1)
            End If
        Next
        Range("G" & gyo).Value = Range("B" & hidari).Value
        Range("L" & gyo).Value = mojiretsu
        gyo = gyo + 1
        mojiretsu = ""
    Next

End Sub

2017/09/27 19:45