【VBAとChatGPT入門】カンマ区切りの文字列を、複数セルに分割し、異なる場所に貼り付ける

カンマ区切りの文字列を、複数セルに分割し、異なる場所に貼り付ける

一つのセルに複数の文字が「、」で区切られた表を、各セルに一つの文字がある表にする。

ChatGPTで作成したVBAコード

Sub SplitAndPasteValues()
    Dim ws As Worksheet
    Dim sourceRange As Range
    Dim targetRange As Range
    Dim cell As Range
    Dim values() As String
    Dim i As Integer
    Dim targetRow As Long
    
    ' 「Sheet1」シートを設定
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    ' データのある範囲を設定（ここではA2から最後のセルまで）
    Set sourceRange = ws.Range("A2", ws.Cells(ws.Rows.Count, "A").End(xlUp))
    
    ' 貼り付け開始セルを設定
    Set targetRange = ws.Range("C2")
    targetRow = targetRange.Row
    
    ' 各セルの値を分解し、C列に貼り付ける
    For Each cell In sourceRange
        If cell.Value <> "" Then
            values = Split(cell.Value, "、") '「、」で分解
            For i = LBound(values) To UBound(values)
                ws.Cells(targetRow, targetRange.Column).Value = values(i)
                targetRow = targetRow + 1
            Next i
        End If
    Next cell
End Sub

上のコードを作成するChatGPTのプロンプト

 
下記のVBAコードを、日本語のコメントをいれて作成してください。
処理：「Sheet1」シートのA2セルから下方向の複数のセルの値を「、」区切りで分解して、C2セルから下方向に貼り付ける。

ChatGPTで作成しました

無料のChatGPT（Microsoft Copilot）で作成しました。

３０年前の私は、必要なVBAコードの完成に６か月かかりました。しかしChatGPTを使えば、初心者でもわずか５分でコードを作成できます。

上記のChatGPTのシートやセルを変更して、あなたのVBAコードを作成してください。

VBAコードは、期待通りに動作し、エラーが発生しないかを必ずテストしてください。

知りたいことやエラー修正は、ChatGPT(Microsoft Copilot)がダイレクトにお答えします。