シリアル番号のマスターリストを比較し、それを別のリストと比較して重複をマークするにはどうすればよいですか？

Question

Sheets("Die Sizes").Select 

Columns("A:A").Select 
Selection.FormatConditions.Add Type:=xlTextString, String:= _ 
    "=cells(i,ForgeSchedule!B2)", TextOperator:=xlContains 
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority 
With Selection.FormatConditions(1).Interior 
    .PatternColorIndex = xlAutomatic 
    .ThemeColor = xlThemeColorAccent6 
    .TintAndShade = 0.399945066682943 
End With 
Selection.FormatConditions(1).StopIfTrue = False 

これまで私がこれまで行ってきたことです。これにより、セカンダリリストの特定のセルがマスターリストと比較されます。これは、私がB3200に至るまでB3に "B2"を一度に変更しなければならないことを意味します。それを自動的に行うにはどうすればいいですか？私はVBAの新機能です。

Answer 1

あなたはループが必要なような音です。おそらくこのようなもの（航空コード）：

Dim lngRow As Long 

Sheets("Die Sizes").Select 

Columns("A:A").Select 
For lngRow = 2 To 3200 
    Selection.FormatConditions.Add Type:=xlTextString, String:= _ 
     "=cells(i,ForgeSchedule!B" & lngRow & ")", TextOperator:=xlContains 
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority 
    With Selection.FormatConditions(1).Interior 
     .PatternColorIndex = xlAutomatic 
     .ThemeColor = xlThemeColorAccent6 
     .TintAndShade = 0.399945066682943 
    End With 
    Selection.FormatConditions(1).StopIfTrue = False 
Next lngRow