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

エクセルマクロ・VBA基礎編フォローアップ ベーシック
文字列を加工してデータ転記する(その2)

HYATOさんの投稿

(投稿ID: 5266)

おはようございます。先生がどのようにマクロを作成しているのか、作成の過程が観られるので、理解がより深まります。引き続きよろしくお願いします。

今回のマクロの作成に当たって、まずは何も見ないで作成し、動画を確認しました。"モノレール"の部分でかなり時間が掛かりましたが、なんとか完成しました。

'[5]
'シート「Sheet2」で、E列にある路線駅名の「路線」情報をH列に、駅名以降の情報をI列に書き込むマクロを作れ
Sub test5()
    Dim gyo
    
    For gyo = 2 To 51
        If InStr(Range("E" & gyo).Value, "駅") <> 0 Then '駅という文字が存在する場合
            If InStr(Range("E" & gyo).Value, "モノレール") = 0 Then 'モノレールという文字が存在しない場合
                Range("H" & gyo).Value = Left(Range("E" & gyo).Value, InStr(Range("E" & gyo).Value, "線"))
                Range("I" & gyo).Value = Mid(Range("E" & gyo).Value, InStr(Range("E" & gyo).Value, "線") + 1)
            Else 'モノレールという文字が存在する場合
                Range("H" & gyo).Value = Left(Range("E" & gyo).Value, InStr(Range("E" & gyo).Value, "ル"))
                Range("I" & gyo).Value = Mid(Range("E" & gyo).Value, InStr(Range("E" & gyo).Value, "ル") + 1)
            End If
        End If
    Next
End Sub

2022/04/20 06:26