Sub CopyDataToAnotherSheet() Dim sourceWorkbook As Workbook Dim sourceSheet As Worksheet Dim destinationSheet As Worksheet Dim sourceFilePath As String ' ファイル選択ダイアログを表示して、ファイルパスを取得 sourceFilePath = Application.GetOpenFilename("Excel Files (*.xls; *.xlsx), *.xls; *.xlsx", , "ファイルを選択") ' キャンセルが押された場合、…