用如下VBA程序：
Sub try()
Dim rag As Range, rag1 As Range, a$, b$, c$, i As Integer
For Each rag In Range("L2:U2")
a$ = rag.Offset(-1, 0)
b$ = ""
For Each rag1 In Range("A2:J2")
If InStr(rag1.Value, a$) > 0 Then
b$ = b$ & rag1.Value
End If
Next
b$ = Replace(b$, a$, "")
c$ = a$ & "-"
For i = 0 To 9
If InStr(b$, i) > 0 Then
c$ = c$ & i
End If
Next i
rag.Value = c$
Next
End Sub
这个还是用vba吧，不是太难。
就10个数据？看你图片有点看不明白
内容全部来源于网络收集，如有侵权，请联系网站删除！
QQ：24596024