|
こんばんは。
sheet1のB列(2行目から)をsheet2のA列(2行目から)にコピー
ですね?
Sub test()
With Worksheets("sheet1")
.Range("B2", .Range("B65536").End(xlUp)).Copy _
Worksheets("sheet2").Range("A2")
Application.CutCopyMode = False
End With
End Sub
ちなみに、
Worksheets("Sheet1").Select
Range("B2").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet2").Select
Range("A2").Select 'ここでエラーが起きます
ActiveSheet.Paste
でもエラーは起きません。(私の環境では)ので、
別なところに原因があるのでは???
ただ、selectしまくってますので、
できるだけ、selectやactiveしないコードを心がけましょう。
|
|