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

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

受講生さんの投稿

(投稿ID: 4393)

文字列の最後に"、"を追加する方法を思いつき、少しシンプルになりました。
Sub ikkinizenbu2()
    Dim migi
    migi = 2
    Dim mae
    Dim ato
    Dim moji
    Dim n
    Dim gyo
    For gyo = 2 To 7
        mae = 0
        ato = 0
        moji = Worksheets("Sheet1").Range("D" & gyo).Value
        'mojiの最後が"、"でない場合、
        If Mid(moji, Len(moji), 1) <> "、" Then
            moji = moji & "、" '文字列の最後に"、"を追加
        End If
        For n = 1 To Len(moji)
            If Mid(moji, n, 1) = "、" Then
                mae = ato
                ato = n
                Worksheets("Sheet2").Range("A" & migi).Value = migi - 1
                Worksheets("Sheet2").Range("B" & migi).Value = Worksheets("Sheet1").Range("A" & gyo).Value
                Worksheets("Sheet2").Range("C" & migi).Value = Worksheets("Sheet1").Range("B" & gyo).Value
                Worksheets("Sheet2").Range("D" & migi).Value = Worksheets("Sheet1").Range("C" & gyo).Value
                Worksheets("Sheet2").Range("F" & migi).Value = Worksheets("Sheet1").Range("E" & gyo).Value
                Worksheets("Sheet2").Range("E" & migi).Value = Mid(moji, mae + 1, ato - mae - 1)
                migi = migi + 1
            End If
        Next
    Next
End Sub

2019/02/17 04:52