excel - 在excel中突出显示重复的 "Q&A"但不是第一个

Question

What is the color of the sky?
A. Blue
B. Grey
C. Green
A

Which is the Capital of Japan?
A. Alabama
B. Alaska
C. Tokyo
B

What is the letter next to C
A. D
B. E
C. F
A

Which is the Capital of Japan?
A. Alabama
B. Alaska
C. Tokyo
B

我有大约 1000 个问题，我想删除重复的问题或突出显示除第一个以外的重复问题，这样我就可以删除它们。

问题在一行，答案在下一行。
Sample here

请帮我。

谢谢 :)

Answer 1

用于突出显示重复项的非 VBA 解决方案:

您可以使用Conditiona Formatting .

假设您的 Q/A 在 A2:A12 范围内.

第一步:

选择范围A2:A12 .选择范围后转到条件格式-> 新规则...



第二步:

选择“使用公式检测要格式化的单元格”，输入公式=AND(LEN(A2)>1,ISNUMBER(MATCH(A2,$A$1:$A1,0)))并选择所需的格式。单击确定。



结果:



备注:

如果您的 Q/A 列表从第 1 行开始，则仅对从第 2 行开始的问题应用 CF(公式要求)。 Шt 不会影响结果，因为在第一行中您不能有重复项。

在公式 =AND(LEN(A2)>1,ISNUMBER(MATCH(A2,$A$1:$A1,0)))部分 LEN(A2)>1从重复搜索中排除答案(因为它们可能因不同的答案而重复)

用于高亮/删除重复项的 VBA 解决方案:

Sub test()
    Dim lastrow As Long
    Dim rngToDel As Range

    'change Sheet1 to suit
    With ThisWorkbook.Worksheets("Sheet1")
        'change column A to column where your Q/A list
        lastrow = .Cells(Rows.Count, "A").End(xlUp).Row

        'loop throught cells from lastrow to row ¹2
        For i = lastrow To 2 Step -1
            'if it's question and not answer
            If Len(.Range("A" & i)) > 1 Then
                'if it is a duplicate
                If Not IsError(Application.Match(.Range("A" & i), .Range("A1:A" & i - 1), 0)) Then
                    If rngToDel Is Nothing Then
                        'it's a duplicate - remember both question and answer
                        Set rngToDel = Union(.Range("A" & i), .Range("A" & i + 1))
                    Else
                        Set rngToDel = Union(rngToDel, .Range("A" & i), .Range("A" & i + 1))
                    End If
                End If
            End If
        Next i
    End With

    If Not rngToDel Is Nothing Then
        'highlight entire row with red
        rngToDel.EntireRow.Interior.Color = RGB(255, 0, 0)
        'or delete entire row
        rngToDel.EntireRow.Delete
    End If
End Sub