[發問] 多目標Replace怎麼寫最精簡?

VBALearner

各位高手

如果我想寫對A1:B10範圍的儲存格做多目標Replace，把 "、" , "。" , "，" , "!" , "?"都去掉，類似Replace(array("、" , "。" , "，" , "!" , "?") , "")的動作，該怎麼寫會最精簡?

謝謝回覆

VBALearner

回復 2# GBKEE

感謝版大回覆~

GBKEE

回復 1# VBALearner
試試看

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim AR(), St As String, e As Variant
   
4.     AR = Array("、", "。", "，", "!", "?")
   
5.     St = "ABCD、。eFg，!Hijk?"
   
6.     For Each e In AR
   
7.         St = Replace(St, e, "")
   
8.     Next
   
9.     MsgBox St
   
10. End Sub

複製代碼