[已解决]批量加书名号

张雄友

1032446692 发表于 2013-6-9 19:10
Sub 批量加书名号()
On Error Resume Next

有个BUG ，就是选中后只能执行一次宏，如果执行多次，就会出现很多书名号，有没有办法容错？

要想进步就要多发现，多提问，我认为。

1032446692

Sub 批量加书名号()
Dim st As Range
For Each st In Selection
     If InStr(1, st, "《") = 0 Then st.Value = "《" & st & "》"
Next
End Sub
先加判断