查找重复行内容

hljycmx

复制了好多题，如何快速找出重复的题目内容就可以，用条件格式不行，因为在每道题的答案中相同的数据很多也不需要删。

zhangcheng6688

学习一下字典，打扰了，重复的标红忘记说了
Sub test()
arr = [a1].CurrentRegion
Set d = CreateObject("scripting.dictionary")
For i = 1 To UBound(arr)
   brr = Split(arr(i, 1), "、")
   If IsNumeric(brr(0)) Then
      If d.exists(arr(i, 1)) Then
         Cells(i, 1).Interior.Color = vbRed
      Else
         d(arr(i, 1)) = ""
      End If
   End If
Next
End Sub

木槿花西月锦绣

把题干的编号提取出来，然后找重复的行了吧

=IFERROR(LEFT(C1,FIND("、",C1)-1),"")