ﾌﾞｯｸ間の列を比較し､片方のﾌﾞｯｸのO列の該当ｾﾙより左のｾﾙ全てに色を付けたい｡今､2つのExcelのﾌﾞｯｸがあります｡仮に､･列比較ﾌﾞｯｸA ･列比較ﾌﾞｯｸB とい…

ﾌﾞｯｸ間の列を比較し､片方のﾌﾞｯｸのO列の該当ｾﾙより左のｾﾙ全てに色を付けたい｡
今､2つのExcelのﾌﾞｯｸがあります｡
仮に､
･列比較ﾌﾞｯｸA
･列比較ﾌﾞｯｸB
というﾌｧｲﾙ名だとします｡
列比較ﾌﾞｯｸAのO列には､
----
りんご

ごりら

ｽﾊﾟｲﾀﾞｰ

ﾃｸﾉｸﾗｰﾄ

ｱﾎﾞｶﾞﾄﾞ
･
･
･
----
といった文字列が､空白ｾﾙを伴い､不規則にｾﾙに6万行ほど記載されております｡
そして列比較ﾌﾞｯｸBのG列には､
----
ｱﾎﾞｶﾞﾄﾞ
りんご
ｽﾊﾟｲﾀﾞｰ
ﾃｸﾏｸﾏﾔｺﾝ
後楽園
･
･
･
----
といった文字列が､たまに空白ｾﾙもありますが､ほぼぎっしり5000行ほど並んでおります｡
この状況におきまして｡
列比較ﾌﾞｯｸBのG列にある文字列が､もし列比較ﾌﾞｯｸAのO列にあれば｡

列比較ﾌﾞｯｸAのO列の方の該当ｾﾙを黄色等で塗りつぶしていただき｡
さらに､該当ｾﾙより左のｾﾙ(A?N列)も､色で塗りつぶしたいのです｡

上に挙げた例ですと､列比較ﾌﾞｯｸAのO列にあるりんご､ｽﾊﾟｲﾀﾞｰ､ｱﾎﾞｶﾞﾄﾞが塗りつぶされて､さらに左のｾﾙもすべて塗りつぶされる感じです｡
もしそのような処理をﾏｸﾛで実行可能でしたら､お教えいただけないでしょうか｡

｢列比較ﾌﾞｯｸA｣の方はいくつもあるのだろうと思いますので､｢列比較ﾌﾞｯｸB｣のﾏｸﾛとして書いてみました｡

Const MAX_ROW_MASTER = 5000
Const MAX_ROW_DATA = 60000
Const TARGET_DIR = "D:\data\"  ' 対象のﾌﾞｯｸがあるﾃﾞｨﾚｸﾄﾘ
Const BG_COLOR_INDEX = 6  ' 黄色


Sub paint_data_sheet()

 datafile = "列比較ﾌﾞｯｸA.xlsx"

 Set master = CreateObject("Scripting.Dictionary")

  ' ﾏｽﾀの取り込み
 For r = 1 To MAX_ROW_MASTER
 Data = Cells(r, 7).Value
 If Data <> "" Then
 If Not master.exists(Data) Then
 master.Add Data, Data
 End If
 End If
 DoEvents
 Next


  ' ﾃﾞｰﾀの色付け
 Set book = Workbooks.Open(TARGET_DIR & datafile)
 Set Sheet = book.Sheets(1)
 For r = 1 To MAX_ROW_DATA
 Set Row = Sheet.Rows(r)
 Set cell = Row.Cells(1, 15)
 If cell.Value <> "" Then
 If master.exists(cell.Value) Then
 Row.Range(Cells(1, 1), Cells(1, 15)).Interior.ColorIndex = BG_COLOR_INDEX
 End If
 End If
 DoEvents
 Next

 book.Save
 book.Close
 Set book = Nothing

 Set master = Nothing

End Sub

質問で書かれていなかったことで､以下のことを前提にしています｡

色付けをしたいﾌﾞｯｸがあるﾃﾞｨﾚｸﾄﾘは固定(選ぶ必要がない)
色付けをするｼｰﾄは一番目のｼｰﾄ
ﾌﾞｯｸA の O列､ﾌﾞｯｸB の G列が空白ｾﾙの場合は色塗りの対象外