各位大神，wps中表格同行文本查重问题，急！

旭荣

各位，表格中一个空格有多个姓名，每个姓名用“；”隔开的，如何将这个空格中的单个姓名和同一行中的后面2个空格中的姓名比对，是否重复，重复则显示出来，后面2个空格中的姓名也是多个的，也是用“，”隔开的。如图，这个函数应该用什么函数来设置好呢？求助，感谢

edwin11891

1. 上附件；
2. 工作表中都是空格，不知道描述的哪是哪个。

hxj119

=IF(REGEXP(C2&D2,"["&SUBSTITUTE(B2,";","|")&"]",1),"重复","")

旭荣

表格在压缩包，如何用函数横向比对3行中重复的姓名。感谢

华尔街操盘手

m4下拉

1. =TEXTJOIN(";",TRUE,DROP(REDUCE("",UNIQUE(TEXTSPLIT(TEXTJOIN(";",TRUE,J4:L4),{";"," ;"}),TRUE),LAMBDA(x,y,VSTACK(x,IF(SUM(--ISNUMBER(FIND(y,J4:L4))*(y<>" "))>1,y,"")))),1))

复制代码

autohotey

需求描述不清晰，谁跟谁比对，以哪个数据为基准。下次最好做个输出结果示例

盲猜一手：比对K列和L列同行重复值
输出逻辑：在K列中查找L列内容，并将K列匹配值标记为红色字体

1. Sub CS()
   
2.     Dim lastRow As Long
   
3.     Dim i As Long
   
4.     Dim kCell As Range
   
5.     Dim lStr As String
   
6.     Dim item As Variant
   
7.     lastRow = Cells(Rows.Count, "K").End(xlUp).Row
   
8.     For i = 4 To lastRow
   
9.         Set kCell = Cells(i, "K")
   
10.         lStr = Cells(i, "L").Value
    
11.         For Each item In Split(lStr, ";")
    
12.             If InStr(kCell.Value, item) > 0 Then
    
13.                 kCell.Characters(Start:=InStr(kCell.Value, item), Length:=Len(item)).Font.Color = vbRed
    
14.             End If
    
15.         Next item
    
16.     Next i
    
17. End Sub

复制代码

theking_wsz

这谁和谁比较啊   登记人分别和  上下午加班比    还是 这三个相互比。请模拟个结果。

hxj119

“空格”应该是指单元格，这描述看不明白呀！请举例说明！

旭荣

华尔街操盘手 发表于 2024-10-8 14:44
m4下拉

您好，这个最终显示结果是重复的都会显示。好像没达到第一行去和后面比对，要显示第一行中的是否在后面有重复，还能怎么优化呢，谢谢

wp231957

旭荣 发表于 2024-10-8 16:14
您好，这个最终显示结果是重复的都会显示。好像没达到第一行去和后面比对，要显示第一行中的是否在后面有 ...

你这到底是横向比对  还是纵向比对   
这个第一行去和后面比对   实在是理解不了   还有前面1楼和4楼的也都前后矛盾   实在是不知道你在表达什么