代码如下:
Function SFR(S1 As Range, s2 As Range)
Dim i, j As String
Dim sa, sb As String
sa = S1 & ","
sb = s2 & ","
For i = 1 To Len(sb) - 1 Step 2
sbs = Mid(sb, i, 2)
If InStr(1, sa, sbs) Then
sa = Replace(sa, sbs, "")
End If
Next i
sa = Left(sa, Len(sa) - 1)
SFR = sa
End Function
按Alt+F11打开VBE编辑器,插入-代码,复制粘贴上面的代码后返回工作表,A3单元格中输入:
=SFR(A1,A2)
回车后即可实现。
温馨提示:答案为网友推荐,仅供参考