☰

如何对不同工作表上的重复单元格使用条件格式？

tag-icon • tag-icon microsoft-excel-2013 conditional-formatting
如何对不同工作表上的重复单元格使用条件格式？

我在 excel 2013 上设置了多个选项卡，并创建了一个条件格式，当输入重复信息时，会用红色突出显示框。但是我希望这也能发生在不同的选项卡上。

当我将格式复制到不同的工作表上时，重复信息会以红色突出显示，但仅限于同一张工作表上。我希望它也能显示其他工作表中是否存在重复项。

我尝试过对不同的工作表使用格式刷，但这只会复制每张工作表上的内容而不是所有工作表上的格式。

有什么办法可以做到这一点？

答案1

要将条件格式应用于工作簿中的多张工作表，需要做一些工作。我找不到“点击”解决方案。这里有一些解决方案可以帮助您找到方法。最重要的是，您必须进行一些实验才能使其适用于您的特定应用程序。

使用定义的名称 - 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

相关内容