|
ponpon さん
こんばんは
教えていただいたコードを元に
「BOOK1〜BOOK2のD列、G列をコピーし、BOOK3に順にペースト」
というコードを作ってみました。
ところが真っ赤です。
Sub test()
With Workbooks("BOOK1")Worksheets("sheet1")
.Range("D1", .Range("D65536").End(xlUp)).Copy _
Workbooks("BOOK3")Worksheets("sheet1").Range("A2")
With Workbooks("BOOK1")Worksheets("sheet1")
.Range("G1", .Range("G65536").End(xlUp)).Copy _
Workbooks("BOOK3")Worksheets("sheet1").Range("B2")
With Workbooks("BOOK2")Worksheets("sheet1")
.Range("D1", .Range("D65536").End(xlUp)).Copy _
Workbooks("BOOK3")Worksheets("sheet1").Range("C2")
With Workbooks("BOOK2")Worksheets("sheet1")
.Range("G1", .Range("G65536").End(xlUp)).Copy _
Workbooks("BOOK3")Worksheets("sheet1").Range("D2")
End With
End Sub
|
|