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

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

にしとみさんの投稿

(投稿ID: 5159)

解説動画を見る前になんとか自力で解答できたものの、少々遠回りなプログラムが出来上がってしまいました。
「0文字目」の概念が自分の中からは出てこず、かなり力技で進めた結果です。
出力したい結果の本質をもう少し深く理解できるようしっかり復習しようと思います。

以下、自力で書いたプログラムです。
無駄が多くて見づらいですが一応載せてみます。
Sub mondai5()
    Dim moji
    Dim mae
    Dim ato
    Dim n
    Dim saki
    Dim gyo
    saki = 2
    For gyo = 2 To 7
        moji = Range("D" & gyo).Value
        If InStr(moji, "、") > 0 Then
            mae = InStr(moji, "、")
            Range("L" & saki).Value = Left(moji, mae - 1)
            ato = mae
            saki = saki + 1
            For n = mae + 1 To Len(moji)
                If Mid(moji, n, 1) = "、" Then
                    mae = ato
                    ato = n
                    Range("L" & saki).Value = Mid(moji, mae + 1, ato - mae - 1)
                    saki = saki + 1
                End If
           Next
            Range("L" & saki).Value = Mid(moji, ato + 1)
            saki = saki + 1
        Else
            Range("L" & saki).Value = moji
            saki = saki + 1
        End If
    Next
End Sub

2021/07/13 15:15