Чтобы применить условное форматирование к нескольким листам в рабочей книге, потребуется определенная работа. Нет решения «укажи и щелкни», которое мне удалось найти. Вот пара решений, которые помогут вам найти свой путь. Суть; вам придется провести некоторые эксперименты, чтобы сделать эту работу для вашего конкретного приложения.
Использование определенных имен - Волшебный трюк Excel 879: условное форматирование на листе (листах или вкладках)
Узнайте, как создать условное форматирование, когда Критерии находятся на одном листе, а Условное форматирование должно быть применено на другом листе. Узнайте об определенных именах. Посмотрите, как отформатировать пересекающиеся значения. См. Логическую формулу, которая использует функции AND и LOOKUP.
Использование VBA - Вы можете использовать макрос VBA для просмотра листов и выделения (форматирования) найденных дубликатов. (источник)
Sub Highlight_Duplicate()
Dim loop_sheet As Integer
Dim sheet_usedrow As Long
Dim loop_row As Long
Dim compare_value As String
Dim loop_row_first_sheet As Long
Dim first_row_count As Long
Dim column_number As Integer
column_number = 1 ' Change the column_number as the column which you want to highlight.
first_row_count = Sheets(1).UsedRange.Rows.Count
For loop_row_first_sheet = 2 To first_row_count
compare_value = Sheets(1).Cells(loop_row_first_sheet, column_number)
For loop_sheet = 2 To 6
sheet_usedrow = Sheets(loop_sheet).UsedRange.Rows.Count
For loop_row = 2 To sheet_usedrow
If Sheets(loop_sheet).Cells(loop_row, column_number) = compare_value Then
Sheets(loop_sheet).Activate
ActiveSheet.Cells(loop_row, column_number).Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Next
Next
Sheets(1).Activate
ActiveSheet.Cells(loop_row_first_sheet, column_number).Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Next
End Sub