-ChatGPT-4に「VBAで開いているファイルのセルの範囲を別の開いているファイルのセルにコピペして」と頼んだら

-ChatGPT-

-ChatGPT-4の回答

Option Explicit

Sub CopyRangeBetweenOpenedFiles()
    Dim SourceWorkbook As Workbook
    Dim TargetWorkbook As Workbook
    Dim SourceRange As Range
    Dim TargetRange As Range
    
    ' 開いているワークブックを選択
    On Error Resume Next
    Set SourceWorkbook = Application.InputBox("ソースワークブックを選択してください", Type:=8).Parent.Parent
    On Error GoTo 0
    If SourceWorkbook Is Nothing Then Exit Sub

    ' ソースワークブックで範囲を選択
    On Error Resume Next
    Set SourceRange = Application.InputBox("ソースワークブックで範囲を選択してください", Type:=8)
    On Error GoTo 0
    If SourceRange Is Nothing Then Exit Sub

    ' 開いているワークブックを選択
    On Error Resume Next
    Set TargetWorkbook = Application.InputBox("ターゲットワークブックを選択してください", Type:=8).Parent.Parent
    On Error GoTo 0
    If TargetWorkbook Is Nothing Then Exit Sub

    ' ターゲットワークブックで範囲を選択
    On Error Resume Next
    Set TargetRange = Application.InputBox("ターゲットワークブックで範囲を選択してください", Type:=8)
    On Error GoTo 0
    If TargetRange Is Nothing Then Exit Sub

    ' セルの範囲をコピー＆ペースト
    SourceRange.Copy TargetRange
End Sub