少しでも繰り返し作業を楽に。
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Dim file1 As String, book1 As String
book1 = ActiveWorkbook.Name
file1 = Application.GetOpenFilename(FILEFILTER:="すべてのファイル,*.*")
If file1 = "False" Then Exit Sub
Workbooks.Open Filename:=file1
Cells.Copy
Workbooks(book1).Activate
Cells.Select
Selection.PasteSpecial Paste:=xlPasteValues
End Sub
