Excel VBAワークシートActiveせずにCellの行番と列番で範囲コピペ

 ワークシートを配列(左からのワークシートの順番)か、あるいはワークシート名で指定し、コピー元を特定できる

Range(Worksheets(1).Cells(1, 1), Worksheets(1).Cells(6, 6)).Copy

貼り付け先もRange(cells(1,1),Cells(6,6)).Addressで行番と列番で指定できる

(1) 配列指定

Worksheets(3).Paste Destination:=Worksheets(3).Range(Range(Cells(1, 1), Cells(1, 100)).Address)

(2) ワークシート名指定
Worksheets(“出力”).Paste Destination:=Worksheets(3).Range(Range(Cells(1, 1), Cells(1, 100)).Address)

(3) ワークシートのオブジェクト名指定

Sheet4.Paste Destination:=Worksheets(3).Range(Range(Cells(1, 1), Cells(1, 100)).Address)

コメント

人気の投稿