- Sub ek_sky()
- Dim st As String, sv As String
- Dim ar1 As Variant
- Dim i As Long
- st = Range("A1").Text
- ar1 = Split(st, ",")
- For i = 0 To UBound(ar1)
- If InStr("," & st & ",", "," & ar1(i) & ",") > 0 Then
- sv = sv & "," & ar1(i)
- st = Replace("," & st & ",", "," & ar1(i) & ",", ",")
- End If
- Next i
- [b1] = Mid(sv, 2)
- End Sub
复制代码 |