生産予定表、上端の日付セルを左セルに反映、取り出すには？

質問

仕事上で下記の生産進行表を念頭に仕事をしています。Ｔ１～（モデル名です）
　　Ａ　　　Ｂ　　　　Ｃ　　　　　Ｄ　　　　Ｅ　　　　Ｆ
１日付　　７／１　７／２　　７／３　７／４　７／５
２型式　
３Ｔ１ 　　１００　　１５０
４Ｔ２ 　　　 　　 　　　　 　　　　２００
５Ｔ３ 　　　　 　　　　　　 　　　２５０
６Ｔ１ 　　　　　　　　　　　　　　　　　３００
７Ｔ３ 　　 　　　　 　　 　　　　　　　　４００
８Ｔ１　　　　　　　　　　　　　　　　　　　　　　　１５０
と言うような配置、構成でデーター入力されていますが、この表から検索行列関数を用いて

　Ａ　　　Ｂ　　　　Ｃ　　　　　Ｄ　　　　Ｅ　　　　Ｆ
１　　　　　　
２日付　型式　 台数
３７／１　Ｔ１ 　１００　　
４７／２　Ｔ１　　１５０
５７／３　Ｔ２ 　　２００
６７／３　Ｔ３ 　２５０
７７／４　Ｔ１ 　３００
　　　↓
というような表示形式に変えたいと思っています。すぐにINDEX関数を思い浮かべたのですが、縦横検索では上端の日付を上手く取得できませんでした。それと同じ日に複数のタイプがあり、モデル、進行経過を縦一列に下へ並べる表示を取りたいのですが、方法が分かりません。良い方法があれば教えていただけませんか?

回答No.3

noname#204879

》 この表から検索行列関数を用いて

「検索行列関数」とは初耳ですが、どんな関数なのですか？

回答No.2

zap35

関数ではできないでしょう
このマクロは実データがシートの３行目からあるとして、Sheet2のＡ～Ｃ列に縦に抜き出すマクロサンプルです

実際のシート構成に合わせて修正してください
（必要に応じてエラー処理やソートも追加して下さい）

Sub Macro1()
Dim TrgRange, rng As Range, idxR As Long
　Set TrgRange = Range(Cells(3, 2), ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell))
　idxR = 0
　For Each rng In TrgRange
　　If rng <> "" Then
　　idxR = idxR + 1
　　With Worksheets("Sheet2")
　　　　.Cells(idxR, 1) = ActiveSheet.Cells(1, rng.Column)
　　　　.Cells(idxR, 2) = ActiveSheet.Cells(rng.Row, 1)
　　　　.Cells(idxR, 3) = rng
　　　End With
　　　End If
　Next rng
End Sub

回答No.1

NCU

１．手動で編集する
２．VBAで処理

以上の順でお勧めします。
逆なら簡単ですけどね。