excel 函数如何判断当前列部分字符是否重复？

发布网友发布时间：2022-04-22 14:19

共3个回答

热心网友时间：2023-11-08 18:45

数字长度最多有多少，如果在15位内，则条件公式为=match(*"&-LOOKUP(1,-MID(B1,FIND("id=",B1)+4,ROW($1:$15)))&"*,b:b,0)<>row(b1)不是第一次出现的（即有重复）就会变色，

热心网友时间：2023-11-08 18:45

假如数据在A列，选中A列，条件格式，新建规则，使用公式确定要设置格式的单元格，将以下公式复制粘贴进去，再点格式，设置颜色，确定即可。

公式=COUNTIF(A$1:A$1000,"*"&LOOKUP(9^9,--MID(A1,FIND("id=",A1)+3,ROW($1:$99)))&"*")>=2

追答看瞎了，如果数据在B列，公式修改成=COUNTIF(B$1:B$1000,"*"&LOOKUP(9^9,--MID(B1,FIND("id=",B1)+3,ROW($1:$99)))&"*")>=2

热心网友时间：2023-11-08 18:46

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = 0 '设置背景色（绿色4/黑色1/白色2/红色3/蓝色5/*6/无底色0）
a = [b65556].End(xlUp).Row
For i = 1 To a
For j = 1 To a
b = InStr(Cells(i, 2), "id=")
c = InStr(Cells(j, 2), "id=")
For m = b + 3 To Len(Cells(i, 2))
If Mid(Cells(i, 2), m, 1) Like "[0-9]" Then
Else
mm = m - b
Exit For
End If
Next
For n = c + 3 To Len(Cells(j, 2))
If Mid(Cells(j, 2), n, 1) Like "[0-9]" Then
Else
nn = n - c
Exit For
End If
Next
If Mid(Cells(i, 2), b, mm) = Mid(Cells(j, 2), c, nn) And j <> i Then
Cells(j, 2).Interior.ColorIndex = 6
Cells(i, 2).Interior.ColorIndex = 6
End If
Next
Next
End Sub

追问辛苦辛苦，能不能简单的使用某一个函数就能实现呢，只要ID重复高亮提醒一下就行

追答如果连网址也一样可以用条件格式，就是判断整个单元格是否有重复，如果网址不完全一样，只判断id就只能用vba代码，使用也很简单，复制代码，粘贴到你的表格里就行，如不会使用，可私信