|
貼付ける行が違うだけですので、列は元々同じと思いますが・・・
W列より右にデータが無く、行をコピーしても良い場合は、
Sub Macro1()
Rows("1:10").Copy
Rows(11).Select
Selection.PasteSpecial Paste:=xlPasteAll
Application.CutCopyMode = False
End Sub
貼付け先範囲のW列より右にデータがあり、そのまま残す場合や
コピー元範囲の右にコピーしたくないデータがある場合 (ちょっと手間)
こんな感じで如何でしょうか。
Sub Macro2()
Dim Rng As Range
Dim Rw As Long
With Range("A1:W10")
.Copy
Range("A11").Activate
ActiveSheet.Paste
For Rw = .Row To .SpecialCells(xlCellTypeLastCell).Row
ActiveCell.Offset(Rw - 1).RowHeight = Rows(Rw).Height
Next Rw
End With
Application.CutCopyMode = False
End Sub
|
|