在excel中突出显示重复的“Q＆A”，但不是第一个

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个问题，我想删除重复或突出重复的除了第一，所以我可以删除它们。

问题在一行中，答案在下一行。 在这里示例

请帮帮我。

谢谢 ：）

Answer 1

非VBA解决scheme突出重复：

您可以使用Conditiona格式 。

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

步骤1：

select范围A2:A12 。 select范围将转到条件格式 – >新规则…

第2步：

select“使用公式检测要格式化的单元格” ，input公式=AND(LEN(A2)>1,ISNUMBER(MATCH(A2,$A$1:$A1,0)))并select所需的格式。 点击OK 。

结果：

笔记：

1. 如果您的Q / A列表从第1行开始，则仅对从第2行开始的问题应用CF（公式要求）。 Шt不会影响结果，因为在第一行中不能有重复。
2. 在公式=AND(LEN(A2)>1,ISNUMBER(MATCH(A2,$A$1:$A1,0)))部分LEN(A2)>1排除了重复search的答案（因为它们可能是不同的答案）

---

VBA解决scheme突出显示/删除重复：

 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