242

view

【補足に対して】

Book1と同じフォルダにブックを作ります。
そのブックにはSheet１～Sheet５までをあらかじめ
作っておき保存します。（閉じておく）

Book1のSheet１には
・A2に上のブック名を入力（拡張子は書かない、あくまでブック名のみ）
・B2～B4にSheet３～Sheet５と入力
・Sheet名と同行のF列～P列に適当な値を入力
マクロ実行
・A2のブックを開く
・ブック１のB列のSheet名を取得し、開いたブックの各Sheetの
J列に値を入れる（行列入れ替える）
・次のSheetに移る際に代入する行を変更する

であれば、

Sub try()
Dim wb2 As Workbook '代入先ブック
Dim ws1 As Worksheet '代入元ワークシート
Dim ws2 As Worksheet '代入先ワークシート
Dim r As Range
Dim i As Integer

' 代入元のシート
Set ws1 = ThisWorkbook.ActiveSheet

' 代入先のブックを開く
Set wb2 = Workbooks.Open(ThisWorkbook.Path & "" & ws1.Range("A2").Value & ".xls")

' 代入する行の初期値
i = 14

With ws1

For Each r In .Range("B2", .Cells(Rows.Count, 2).End(xlUp))

'代入先ブックのSheetを随時変更する
Set ws2 = wb2.Worksheets(r.Value)

' 代入先のSheetのJ列を１３行ずつ移動しながら
' 代入元の値を行列を入れ替えて代入していく
ws2.Range("J" & i).Resize(11).Value = _
WorksheetFunction.Transpose(r.Offset(, 4).Resize(, 11).Value)
i = i + 13
Next

End With

' 保存して閉じて良ければ下の'を外して下さい
' wb2.Close True

Set wb2 = Nothing
Set ws1 = Nothing
Set ws2 = Nothing
End Sub

こんな感じでも出来たのですが、６０パターンというのが
わかりませんでした。

試したブックは↓
http://uploadr.net/file/3498aaaf1e
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

・３つのSheetに対して（先の質問）
・シート数はバラバラで３つめ以降が対象
・シート名(B1) ＆ シート「旭川」 （と言う事はSheetを指定する？）

・(J4:J14)、(J27:J37)、
・(J1:J5)に対応するものが(C1:C5)
・「B11:B15」に～「A5:A9」を代入する感じです。

条件が定まらないです。

代入元にあるデータを代入先に送り込む条件は
・３つめ以降の全てのSheet
・代入元で指定したSheet（１個or複数？）
・セル範囲はどこからどこへ

まずブック・シートの情報を正確にされた方が良いかもと思います。