|
いつも大変お世話になっております。
今回このようなマクロを作成しました。
Sub test ()
Dim wb As Workbook
Dim ws, ws2 As Worksheet
Dim R, RR As Range
Dim wb_r As Long
wb_r = ActiveWorkbook.Worksheets("CVPARTS").Range("A1").Range("A65536").End(xlUp).Row
If wb_r <> 1 Then
wb_r = wb_r + 1
For Each R In Range(Worksheets("集めた目録").Range("A1:B65536"), Worksheets("集めた目録").Range("A1").Range("B65536").End(xlUp).Row)
For Each ws2 In wb.Worksheets
If InStr(1, ws2.Name, "マスター") <> 0 Then
For Each RR In Range(ws.Range("D1:G65536", ws.Range("D1").Range("G65536").End(xlUp).Row)
If R = RR Then
wb.Worksheets("CVPARTS").Cells(wb_r, 1).Value = R.Value
wb_r = wb_ + 1
End If
Next RR
End If
Next ws2
Next R
End Sub
上記のコードの目的は
1."集めた目録"というシートのAセルBセルの値を上から順に読む
2.このブックには"〜マスター"と名の付くシートが4枚ある
3.そのシートのGセルの値とHセルの値が、"集めた目録"シートの上から順に読んで いるAセル、Bセルに対応しているかを比較する
4.その結果両方とも一致していれば、"CVPARTS"の10行目から順に、
"〜マスター"シートのDセルの値は"CVPARTS"シートのEセルに、Eセルの値はFセル に、Fセルの値はGセルに、Gセルの値はHセルに、Hセルの値はIセルにといったよ うに、表示させていきたいのですが・・・・
wb.Worksheets("CVPARTS").Cells(wb_r, 1).Value = R.Value
wb_r = wb_ + 1
既に上記の時点で(というよりもっと前より)分からなくなっております。
お手数ですが、力をお貸しねがえないでしょうか?
|
|