GBKEE

¦^´_ 2# kuhsuanchieh
¸Õ¸Õ¬Ý

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim Rng As Range, A As Variant, Ar(), e As Variant, Ay(), i As Integer, x_Er As String
   
4.     Ar = Array("¥«", "¿¤", "°Ï", "¶m", "Âí") '¦æ¬F°Ï
   
5.     Set Rng = Sheets("¤u§@ªí1").[A2]
   
6.     Do While Rng <> ""
   
7.         i = i + 1
   
8.         A = Rng.Text
   
9.         A = Replace(A, "F", "¼Ó")
   
10.         A = Replace(A, "f", "¼Ó")
    
11.         For Each e In Ar
    
12.             A = Replace(A, e, e & ",")
    
13.         Next
    
14.         A = Split(A, ",")
    
15.         ReDim Preserve Ay(1 To i)
    
16.         If UBound(A) = 2 Then
    
17.             For Each e In Array("§ø", "¨½", "¾F", "?") '¾F ¦Õ¦³¥ª,¦³¥k
    
18.                 A(2) = Replace(A(2), e, e & ",")
    
19.             Next
    
20.             If InStr(A(2), ",") Then
    
21.                 A(2) = Split(A(2), ",")(UBound(Split(A(2), ",")))
    
22.             End If
    
23.             A(2) = Ex_°ê¦rÂà¼Æ¦r(A(2) & "")
    
24.             '°ê¦rÂà¼Æ¦r¥i¦Û¤vGOOGLE½m²ß¤@¤U
    
25.             Ay(i) = A
    
26.         Else
    
27.             Ay(i) = Array("", "", "")
    
28.             x_Er = x_Er & "," & Rng.Address(0, 0)
    
29.         End If
    
30.         Set Rng = Rng.Offset(1)
    
31.     Loop
    
32.      Rng.Parent.[b2].Resize(i, 3) = Application.Transpose(Application.Transpose(Ay))  '
    
33.      If x_Er <> "" Then MsgBox Mid(x_Er, 2), Title:="¦í§}»Ý¥Î¤â¤u­×¥¿"
    
34. End Sub
    
35. Function Ex_°ê¦rÂà¼Æ¦r(x_Word As String) As String
    
36.     Ex_°ê¦rÂà¼Æ¦r = x_Word
    
37. End Function

½Æ»s¥N½X