|
こんばんは。
book1,book2,book3は、開いているものとします。
これでは、どうでしょう?
Sub test()
With Workbooks("Book1").Worksheets("sheet1")
.Range("D1", .Range("D65536").End(xlUp)).Copy _
Workbooks("Book3").Worksheets("sheet1").Range("A2")
.Range("G1", .Range("G65536").End(xlUp)).Copy _
Workbooks("Book3").Worksheets("sheet1").Range("B2")
End With
With Workbooks("Book2").Worksheets("sheet1")
.Range("D1", .Range("D65536").End(xlUp)).Copy _
Workbooks("Book3").Worksheets("sheet1").Range("C2")
.Range("G1", .Range("G65536").End(xlUp)).Copy _
Workbooks("Book3").Worksheets("sheet1").Range("D2")
End With
End Sub
|
|