发布网友 发布时间:2022-04-22 21:24
共2个回答
热心网友 时间:2022-06-25 23:00
'自定义公式-按ALT+F11-插入模块-粘贴代码-将表格另存为启用宏的格式
Function 找相同(a As String, b As String)
For i = 1 To Len(a)
If InStr(b, Mid(a, i, 1)) Then c = c & Mid(a, i, 1)
Next
找相同 = c
End Function
热心网友 时间:2022-06-25 23:01
=CONCAT(IFERROR(MID(A1,FIND(MID(B1,{1,2,3,4},1),A1),1),""))