Sub deletesame()
Set d1 = CreateObject("scripting.dictionary")
For i = 1 To [a56636].End(3).Row
arr = Split(Cells(i, 1), ",")
brr = Split(Cells(i, 2), ",")
For j = 0 To UBound(brr)
If Not d1.exists(brr(j)) Then d1.Add (brr(j)), ""
Next
For k = 0 To UBound(arr)
If d1.exists(arr(k)) Then n = n + 1
Next
If n = k Then Cells(i, 2).Clear
d1.RemoveAll
n = 0
Next
End Sub
选中一个单元格然后插入表格
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ号：24596024