Andy2483

¦^´_ 1# s13030029


    ½Ð«e½ú¸Õ¸Õ¬Ý

Option Explicit
Sub test()
Dim Arr, i, x, T, j$, c
Arr = Range([A1], [A65536].End(3))
For i = 1 To UBound(Arr)
   j = Trim(Arr(i, 1))
   c = Len(j)
   For x = c To 2 Step -1
      If UCase(Mid(j, x, 1)) Like "[A-Z]" Then
         j = Trim(Mid(j, 1, x - 1)) & " " & Mid(j, x, c * 2)
      End If
   Next
   Arr(i, 1) = j
Next
[B1].Resize(UBound(Arr), 1) = Arr
End Sub

Andy2483

¦^´_ 8# s13030029


    ÁÂÁ«e½úµoªí¦¹¥DÃD,½Ð«e½ú¦A¸Õ¸Õ¬Ý
ÁÂÁ samwang «e½ú «ü¾É
«á¾Ç»{ÃѤF Asc»PChr ªºÃö«Y,
«á¾Ç¹ï¦r¨åÆ[©ÀÁ¡®z ÂǦ¹²ß±o§â¦r¤¸­Ë¤J¦r¨å¤¤
½Ð«e½ú¦A«ü¾É!

Option Explicit
Sub test4() '³æ¦C©Î¦h¦C³£¥i¥H¥Î
Dim Arr, i, x, j$, c, d, xD, T
Arr = Range([A1], [A65536].End(3).Offset(1, 0))
Set xD = CreateObject("Scripting.Dictionary")
For d = 65 To 122 '65~90¬O¤j¼g 97~122¬O¤p¼g
   xD(d) = Chr(d)
   If d = 90 Then d = 96
Next
T = Join(xD.items, "//")
For i = 1 To UBound(Arr) - 1
   j = Arr(i, 1)
   j = Replace(Replace(j, " ", ""), "¡@", "") '¥h°£ªÅ¥Õ¦r¤¸
   c = Len(j)
   For x = c To 2 Step -1
      If InStr(T, Mid(j, x, 1)) And Mid(j, x - 1, 1) <> vbLf Then
         j = Mid(j, 1, x - 1) & " " & Mid(j, x, c * 2)
      End If
   Next
   Arr(i, 1) = j
Next
[B1].Resize(UBound(Arr) - 1, 1) = Arr
Set Arr = Nothing
End Sub

Andy2483

¦^´_ 12# ­ã´£³¡ªL
    ÁÂÁ «e½ú«ü¾É

Andy2483

¦^´_ 2# Andy2483


    ­×¥¿¦Û¤vªº»{ª¾
j = Trim(Mid(j, 1, x - 1)) & " " & Mid(j, x, c * 2) §ï¬°
j = Trim(Mid(j, 1, x - 1)) & " " & Mid(j, x)§Y¥i
·íªì¾Ç²ß®ÉÁÙ¦b¦Ò¼{ length ­n¥Î¦h¤Ö??  

https://learn.microsoft.com/zh-tw/office/vba/language/reference/user-interface-help/mid-function
Mid(string, start, [ length ])
string        ¥²­n¡C ¦r¦ê¹Bºâ¦¡ªº¥\¯à¬O·|±q¤¤¶Ç¦^¦r¤¸¡C ¦pªG ¦r¦ê ¥]§t Null¡A«h¶Ç¦^ Null¡C
start        ¥²­n¡FLong¡C string ¤¤­nÂ^¨ú°µ¬°¶}©l³¡¤Àªº¦r¤¸¦ì¸m¡C ¦pªG start ¤¤ªº¦r¤¸¼Æ¤j©ó string¡A«h Mid ·|¶Ç¦^¹sªø«×¦r¦ê ("")¡C
length        ¿ï¥Î¡FVariant (Long)¡C ­n¶Ç¦^ªº¦r¤¸¼Æ¡C ¦pªG¬Ù²¤¦¹°Ñ¼Æ¡A©Î¬O¦r¤¸¼Æ¤Ö©ó¤å¦r¤¤ªº length ¦r¤¸ (¥]§t start ©Ò¦bªº¦r¤¸)¡A´N·|¶Ç¦^±q start ¦ì¸m¶}©l¤@ª½¨ì¦r¦êµ²§Àªº©Ò¦³¦r¤¸¡C