Sub cs()
Application.ScreenUpdating = False
h = [d65536].End(3).Row
With Range("d1:d" & h)
.Copy [g1]
.Replace ",", "~"
.Replace "。", "~"
.Replace "、", "~"
.Replace ";", "~"
.Replace "《", ""
.Replace "》", ""
.Replace "(", ""
.Replace ")", ""
.Replace "%", ""
End With
For Each n In Range("d1:d" & h)
js = Split(n, "~")
i = UBound(js)
If i >= 2 Then n.Offset(0, -3) = Left(js(0), 1): n.Offset(0, -2) = Left(js(1), 1): n.Offset(0, -1) = Left(js(2), 1)
If i = 1 Then n.Offset(0, -3) = Left(js(0), 1): n.Offset(0, -2) = Left(js(1), 1)
If i = 0 Then n.Offset(0, -3) = Left(js(0), 1)
Next n
Range("g1:g" & h).Copy [d1]
Range("g1:g" & h).ClearContents
Application.ScreenUpdating = True
End Sub
|