maku

Sub 並び替え()
'
' Macro2 Macro
'
'シートを選んで消す
    Worksheets("コピー").Select
    Cells.Select
    Selection.Delete Shift:=xlUp



'変数　i　の設定
Dim i As Long

'変数　clmn　の設定
Dim clmn As Long

'変数 cut　の設定
Dim cut As Long

'変数 r　の設定
Dim rowsDate As Long



clmn = 1
cut = 0

'最終行の取得
rowsDate = Worksheets("原本").Cells(Rows.Count, 1).End(xlUp).Row


'繰り返し回数（行数）の指定
For i = 1 To rowsDate

'コピーのA1：G1の範囲にまず値の貼付し、次の行をその横に貼付け（A1:G1が7列なので７代入）、元データは原本のA1:G1をコピー。
Worksheets("コピー").Range("A1:G1").Offset(cut, 7 * (clmn - 1)).Value = Worksheets("原本").Range("A1:G1").Offset(i - 1, 0).Value

'２行を一列にコピーのため２を代入
If clmn = 2 Then
cut = cut + 1
clmn = 1

Else

clmn = clmn + 1

End If

Next

End Sub