Question

我想隐藏表中的重复单元格。见图。

结果（我手动隐藏了NotebookNames，这就是我的评论内容）

在第一列中，我们得到了“图像名称”，我想隐藏（将单元格绘制成白色）重复项，只留下第一个“重复”。在第二列中有“图像版本”，我想在这里隐藏重复项，但依赖于列“图像名称”。因此，如果有2次“Image S400”+版本1.3，则隐藏第二个“图像名称”+“图像版本”。

我正在尝试使用条件格式化，但我确定这不是那种方式。

这是否可以使用条件格式？或者我必须用VBA解决这个问题吗？

问候和愉快的一周

Declade

Answer 1

你想隐藏单元格或行，如果您选择的是第2个，您可以使用此子读取表中的所有行，如果当前行的图像名称和图像版本是前一行的某些行，则当前行将隐藏

Sub ColorDoubleRst()
Application.ScreenUpdating = False

    Dim UR As Long, X As Long
    Dim MyCol As Integer

    MyCol = Range("A:A").Column
    UR = Cells(Rows.Count, MyCol).End(xlUp).Row
    For X = 2 To UR
    If Cells(X, "A") = Cells(X - 1, "A") Then
        Cells(X, "A").Select
        With Selection.Font
            .ThemeColor = xlThemeColorDark1
        End With
        With Selection.Interior
            .ThemeColor = xlThemeColorDark1
        End With
        If Cells(X, "B") = Cells(X - 1, "B") Then
            Cells(X, "B").Select
            With Selection.Font
                .ThemeColor = xlThemeColorDark1
            End With
            With Selection.Interior
                .ThemeColor = xlThemeColorDark1
            End With

            If Cells(X, "F") = Cells(X - 1, "F") Then
                Cells(X, "F").Select
                With Selection.Font
                    .ThemeColor = xlThemeColorDark1
                End With
                With Selection.Interior
                    .ThemeColor = xlThemeColorDark1
                End With
            End If
        End If
    End If
    Next X
Application.ScreenUpdating = True
End Sub

Application.ScreenUpdating = true 结束子或者，如果您只想隐藏2个单元格，则可以将backgroundcolor和the fontcolor更改为白色

{{1}}

隐藏表中的重复单元格

1 个答案: