複数のデータ列を複数の列に転置するためのVBAコード

Question

こんにちは私は1列の株価65000行のリストを持っており、2番目の写真のようにそれを適応させたいと思います。 vbaと？ありがとうございました！データ構造は常に同じであると仮定すると

Answer 1

（データの12ヶ月及びデータのための3行は、IDの設定します）。あなたのシート名に合わせてコードの9行目に

Sub TRANSPOSE_DATA() Dim lRow, i, x As Long '------------------ With ThisWorkbook 'ADD OUTPUT WORKSHEET .Sheets.Add After:=.Sheets(.Sheets.Count) 'add a sheet for output .ActiveSheet.Name = "OUTPUT" 'sheet rename 'COPY DATA With .Sheets("Hoja1") 'Change sheet name for yours lRow = .Range("A1048576").End(xlUp).Row 'last row definition .Range("A1:B15").Copy Destination:=ThisWorkbook.Sheets("OUTPUT").Range("A1") 'First dataset copy (including headers) x = 3 'first iteration column definition For i = 16 To lRow - 14 .Range("B" & i & ":B" & i + 14).Copy Destination:=ThisWorkbook.Sheets("OUTPUT").Cells(1, x) 'copy data from each iteration x = x + 1 'transpose 1 column for next iteration i = i + 14 'transpose 12 months plus header rows for next iteration Next i End With End With End Sub