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

旭荣 · 发表于 2024-10-8 10:31

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

edwin11891 · 发表于 2024-10-8 12:18

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

hxj119 · 发表于 2024-10-8 14:11

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

旭荣 · 发表于 2024-10-8 14:15

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

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

m4下拉

=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 · 发表于 2024-10-8 15:23

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

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

Sub CS()
Dim lastRow As Long
Dim i As Long
Dim kCell As Range
Dim lStr As String
Dim item As Variant
lastRow = Cells(Rows.Count, "K").End(xlUp).Row
For i = 4 To lastRow
Set kCell = Cells(i, "K")
lStr = Cells(i, "L").Value
For Each item In Split(lStr, ";")
If InStr(kCell.Value, item) > 0 Then
kCell.Characters(Start:=InStr(kCell.Value, item), Length:=Len(item)).Font.Color = vbRed
End If
Next item
Next i
End Sub

复制代码

theking_wsz · 发表于 2024-10-8 15:49

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

hxj119 · 发表于 2024-10-8 15:57

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

旭荣 · 发表于 2024-10-8 16:14

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

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

wp231957 · 发表于 2024-10-8 16:16

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

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

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

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