[µo°Ý] ¦h¥Ø¼ÐReplace«ç»ò¼g³Ìºë²?

VBALearner

¦U¦ì°ª¤â

¦pªG§Ú·Q¼g¹ïA1:B10½d³òªºÀx¦s®æ°µ¦h¥Ø¼ÐReplace¡A§â "¡B" , "¡C" , "¡A" , "!" , "?"³£¥h±¼¡AÃþ¦üReplace(array("¡B" , "¡C" , "¡A" , "!" , "?") , "")ªº°Ê§@¡A¸Ó«ç»ò¼g·|³Ìºë²?

ÁÂÁ¦^ÂÐ

GBKEE

¦^´_ 1# VBALearner
¸Õ¸Õ¬Ý

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

½Æ»s¥N½X

VBALearner

¦^´_ 2# GBKEE

·PÁª©¤j¦^ÂÐ~