请教老师用公式，在原始数中减掉对应行的几个数，谢谢！

cartel

请教老师用公式，在原始数中减掉对应行的几个数，谢谢！.zip (11.64 KB, 下载次数: 16)

2024-5-13 23:08 上传

点击文件名下载附件

boyuanoffice

1. =CONCAT(TEXTSPLIT(P1,TEXTSPLIT(R1,",")&","))

复制代码

丢丢表格

=TEXTJOIN(",",,TEXTSPLIT(P$1,","&TEXTSPLIT(R1,",")&",",))

魚。。

1. =TEXTJOIN(",",,IFNA(IF(FREQUENCY(--TEXTSPLIT(R1,","),--TEXTSPLIT(P$1,",")),"",TEXTSPLIT(P$1,,",")),""))

复制代码

leepoison

=TEXTJOIN(",",TRUE,UNIQUE(HSTACK(TEXTSPLIT($P$1,","),TEXTSPLIT(R1,",")),TRUE,TRUE))

leepoison

=TEXTJOIN(",",,UNIQUE(REGEXP($P$1&","&R1,"\d+"),TRUE,TRUE))

swl4561255

1. Sub test()
   
2. Ip = [P1]
   
3. Pr = Split(Ip, ",")
   
4. ar = [R1].End(4).Row
   
5. arr = Range("R1:R" & ar)
   
6. Dim brr(1 To 100, 1 To 1)
   
7. For i = 1 To ar
   
8.     mys = "," & arr(i, 1) & ","
   
9.     st = ""
   
10.     For j = 0 To UBound(Pr)
    
11.         If InStr(mys, "," & Pr(j) & ",") = 0 Then
    
12.             st = st & "," & Pr(j)
    
13.         End If
    
14.     Next
    
15.     brr(i, 1) = Mid(st, 2)
    
16. Next
    
17. [S1].Resize(UBound(brr), 1) = brr
    
18. End Sub

复制代码

jivy1212

1. =TEXTJOIN(",",1,FILTER(ROW($1:$31)-1,ISERR(FIND(","&ROW($1:$31)-1&",",","&R1&","))))

复制代码

都奔赴小康了，就我还在解放前。