|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
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
|
评分
-
1
查看全部评分
-
|