|
例では、対象一覧とマスターとで、名前の行位置が同じなのですが、そうとは限らないんですよね?
対象一覧にある名前は、マスターに必ずあるのでしょうか?
マスターに、同じ名前は1つだけですか?それとも複数存在する場合もありますか?
それぞれのファイルには、シートはいくつありますか?1枚だけ?服すうまいある場合、何枚目が処理対象シートですか?
とりあえず、「対象一覧にある名前がマスターに無い場合もある」「マスターには同じ名前は1つしかない」「どっちのファイルも1シート目が処理対象ファイル」という前提で作ってみました。
いくつかある方法のうちの一例です。
ファイルは両方開かれている状態で実行してください。
Sub test()
Dim ShRef As Worksheet, ShMas As Worksheet
Set ShRef = Workbooks("対象一覧.xls").Sheets(1)
Set ShMas = Workbooks("マスター.xls").Sheets(1)
Dim r As Long
For r = 1 To ShRef.Cells(ShRef.Rows.Count, 1).End(xlUp).Row
Dim Fnd As Range
Set Fnd = ShMas.Cells.Find(ShRef.Cells(r, 1).Value, , , xlWhole)
If Not Fnd Is Nothing Then
Fnd.EntireRow.Cells(Columns.Count).End(xlToLeft).Offset(, 1).Value = 9
End If
Next r
End Sub
|
|