Range("B6") = ""
If WorksheetFunction.CountA(Range("A1:A5,C1:C5")) = 10 Then
For i = 1 To 5
If WorksheetFunction.CountIf(Range("C1:C5"), Cells(i, 1)) > 0 Then
If Range("B6") = "" Then
Range("B6") = Cells(i, 1)
Else
Range("B6") = Range("B6") & "&" & Cells(i, 1)
End If
End If
Next
End If
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024