Как я могу сравнить главный список серийных номеров и сравнить его с отдельным списком и отметить его дубликаты?

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 

Это то, что у меня есть до сих пор. Это позволит сравнить конкретные ячейки во вторичном списке с основным списком. Это означает, что мне пришлось бы повторно запускать этот вариант за один раз, переставляя «B2» в B3 до B3200. Как я могу заставить это сделать это автоматически? Я очень новичок в VBA.

Похоже, вам просто нужен цикл. Возможно, что-то вроде этого (воздушный код):

 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 
Давайте будем гением компьютера.