'セルB1~D3の範囲をコピー貼り付け Sub CopyCell() Range(Cells(1,2),Cells(3,4)).Copy Destination:=Cells(5,6) End Sub Sub CopyCell() Range("B1:D3").Copy Destination:=Range("F5") End Sub Sub CopyCell() Worksheets("Sheet1").Activate Worksheets("Sheet1").Range(Cells(1,2),Cells(3,4)) _ .Copy Destination:=Worksheets("Sheet1").Cells(5,6) End Sub Sub CopyCell() Worksheets("Sheet1").Activate Worksheets("Sheet1").Range("B1