Function str(x, y, z)
xa = Split(x, ",")
ya = Split(y, ",")
If UBound(xa) <> UBound(ya) Then str = ",不匹配": Exit Function
For i = 0 To UBound(xa) - 1
If ya(i) = z Then str = str & xa(i) & ","
Next i
End Function
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024