ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

¦p¦ó¦bExcel¤¤´¡¤J¤j¼g¦r¥À¤§«eªºªÅ®æ¡H

¦^´_ 1# ¦Û§Ú·Pı¨}¦n
  1. Sub Test()
  2.     Dim reg As Object
  3.     Set reg = CreateObject("vbscript.regexp")
  4.     reg.Pattern = "([A-Z])"
  5.     s1 = "(n) À]ªø¡FºÞ²zªÌThe director gave us work to do."
  6.     s2 = reg.Replace(s1, " $1")
  7.     MsgBox s2
  8. End Sub
½Æ»s¥N½X
ªí¹F¤£²M¡BÃD·N¤£©ú½T¡B¨SªþÀɮ׮榡¡B¨S¦³°Q½×°ÝÃDªººA«×~~~~~~¥H¤W·R²ö¯à§U¡C

TOP

        ÀR«ä¦Û¦b : ¤H­nª¾ºÖ¡B±¤ºÖ¡B¦A³yºÖ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD