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

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

ゲストさんの投稿

(投稿ID: 4540)

小川先生
こんにちは。フォローアップ・ベーシックを2回復習し、ようやくアドバンスに来ています。以下自力で作成しました（問題５を投稿）。成功したときは嬉しくて思わず声を出してしまいました。先生の模範解答とは方向性がだいぶ異なりますが、記念に投稿させて下さい。これからもよろしくお願いします。
Sub mondai5()
    Dim migi
    Dim kugiri '、の出現回数
    Dim n
    Dim mae
    Dim ato
    Dim moji
    moji = Range("D2").Value
    kugiri = Len(moji) \ 7
    migi = 2
    For n = 0 To kugiri
        mae = 7 * n
        ato = 7 + 7 * n
        Range("L" & migi).Value = Mid(moji, mae + 1, ato - mae - 1)
        migi = migi + 1
    Next
End Sub

2019/08/07 19:28