查找重复行内容

hljycmx · 发表于 2024-5-21 13:59

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

zhangcheng6688 · 发表于 2024-5-21 15:02

本帖最后由 zhangcheng6688 于 2024-5-21 15:16 编辑

学习一下字典，打扰了，重复的标红忘记说了
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

木槿花西月锦绣 · 发表于 2024-5-21 15:45

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

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

		自动登录	找回密码
密码			免费注册

[求助] 查找重复行内容