Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


15314 / 76734 ←次へ | 前へ→

【66899】A列からC列までを行に入れ替え、一定数で次の行に移していく。
質問  マルボロ  - 10/10/16(土) 10:53 -

引用なし
パスワード
   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

1 hits

【66899】A列からC列までを行に入れ替え、一定数で次の行に移していく。 マルボロ 10/10/16(土) 10:53 質問
【66900】Re:A列からC列までを行に入れ替え、一定数... Hirofumi 10/10/16(土) 11:18 回答
【66902】Re:A列からC列までを行に入れ替え、一定数... マルボロ 10/10/16(土) 11:41 お礼
【66901】Re:A列からC列までを行に入れ替え、一定数... kanabun 10/10/16(土) 11:34 発言
【66903】Re:A列からC列までを行に入れ替え、一定数... マルボロ 10/10/16(土) 12:00 お礼

15314 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free