| |
こんばんは。
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しないコードを心がけましょう。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
