|
A列からC列までの3列をD列から1行に貼り付けていき、L列まで行ったら、
D列の2行目から貼り付けていく方法を考えています。
a a 1
b b 2
c c 3
d d 4
e e 5
これを
a a 1 b b 2 c c 3
d d 4 e e 5
いろいろなサイトを見て、次のようにつくってみましたが、行を変える方法がわかりません。
どなたかよろしくお願いいたします。
Sub Macro1()
Dim RowEnd As Long, i As Long, ii As Long, iii As Long, iiii As Long
ii = 1
iii = 4
iiii = 1
RowEnd = Range("A65536").End(xlUp).Row
Application.ScreenUpdating = False
For i = 1 To RowEnd
cells(i, 1).Resize(, 3).Cut Destination:=cells(iiii, iii)
Application.CutCopyMode = False
iii = iii + 3
Next i
Application.ScreenUpdating = True
End Sub
|
|