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

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

受講生さんの投稿

(投稿ID: 2193)

前回の難問を解くために、分解してステップを踏む問題ですね。
設問を見て、考え方の方向はつかめていたと感じました。
以下は自力の回答[1]です。Exit Forを使って、回数を上書きしない方法で考えました。
一度のIF文で２つの変数値を一度に獲得する方法には至りませんでした。
0文字目を想定する考え方、まだ理解してないです。
動画少しずつ勉強してみます。
Sub rensyu033108()
    Dim yakuwari    '調査対象をyakuwariとする
    Dim n           '調査を繰り返す数
    Dim moji
    Dim mae
    Dim ato
    yakuwari = Range("D2").Value
    moji = Len(yakuwari)       ' 文字数を調べて格納する 
    For n = 1 To moji  '文字の数だけ繰り返す
        If Mid(yakuwari, n, 1) = "、" Then
            mae = n
            Range("H2").Value = mae
            Exit For        '1度見つけたらループ終了
        End If
    Next
        For n = mae To moji  '文字の数だけ繰り返す                
         If Mid(yakuwari, n + 1, 1) = "、" Then
            ato = n + 1
            Range("I2").Value = ato
         Exit For           '1度見つけたらループ終了
        End If
     Next
    Range("L3").Value = Mid(yakuwari, mae + 1, ato - mae - 1)   
End Sub

by gooska
2016/04/01 04:47