VBA学習ツール無料配布！#12 テーマ:vbaのsplitで文字列を分けよう！

Option Explicit

Sub correctAnswerExample()
    Dim readWriteWs As Worksheet
    Dim inputString As String
    Dim splitArray() As String
    Dim writeHeadRng As Range
    Dim i As Integer
    ' シート「読み込み＆書き込みシート」を指定
    Set readWriteWs = ThisWorkbook.Sheets("読み込み＆書き込みシート")
    ' 読み込みセルの文字列を取得
    inputString = readWriteWs.Cells(6, 2).Value
    ' 文字列を「・」で分割して配列に格納
    splitArray() = Split(inputString, "・")
    ' 書き込みセルの上のセルを取得
    Set writeHeadRng = readWriteWs.Cells(9, 2)
    ' 書き込みセルに分割した文字列を自動入力（配列のインデックス（i）は0から始まる）
    For i = LBound(splitArray) To UBound(splitArray)
        writeHeadRng.Offset(i, 0).Value = splitArray(i)
    Next i
    ' シート「読み込み＆書き込みシート」をアクティブにする
    readWriteWs.Activate
    ' MsgBox関数で「実行完了」と表示する
    MsgBox "実行完了"
End Sub