简单

split函数，拆分一下。

Public Sub test()
Dim arr, i As Integer, x As Integer, brr
arr = Array("黑裤", "灰裤", "深灰裤", "天蓝裤")
With Sheet1
For i = 0 To UBound(arr)
.Columns(1).Replace arr(i), "，" & arr(i)
Next
i = .Range("a65536").End(xlUp).Row
For x = 2 To i
brr = Split(.Range("a" & x).Value, "，")
.Range("b" & x).Resize(1, 3).Value = brr
Next
End With
End Sub