EXCEL 横並びのデータをデータ分縦コピー

エクセルで、横並びのデータをキーを指定して日付分縦へコピー挿入したいのですが可能でしょうか？

マクロは少しわかります。
何卒宜しくお願い致します。

No.1 回答者： ママチャリ 回答日時： 2016/10/30 14:26

こんな感じです。

Sheet1からSheet2へ転記します。もし、データの先頭行や各セルの位置がずれていたら、調整してください。

Sub sample()
Dim wsI As Worksheet
Dim wsO As Worksheet
Dim I As Long
Dim O As Long
Dim C As Long
Set wsI = Sheets("Sheet1")
Set wsO = Sheets("Sheet2")
O = 4
wsO.Rows(O & ":" & Rows.Count).Delete
For I = 3 To wsI.Cells(Rows.Count, "A").End(xlUp).Row
For C = 133 To Rows.Count Step 3
If wsI.Cells(I, C) <> "" Then
wsI.Range(wsI.Cells(I, 1), wsI.Cells(I, 132)).Copy (wsO.Cells(O, 1))
wsI.Range(wsI.Cells(I, C), wsI.Cells(I, C + 2)).Copy (wsO.Cells(O, 133))
O = O + 1
Else
Exit For
End If
Next C
Next I
End Sub

この回答へのお礼

ありがとうございます！

本当にすごいです。
問題なくできました。

自分もマクロがんばります。

本当にありがとうございました！！

お礼日時：2016/10/30 14:42