c_c_lai

¦^´_ 2# greetingsfromtw

¤U¸ü (41.42 KB)

2016-11-12 08:39

1. Sub Ex2()
   
2.     Dim arr As Variant, cts As Integer
   
3.     Dim ln As Integer, cn As Integer
   
4.    
   
5.     With Sheets("­ì©l¸ê®Æ")
   
6.         cts = Application.CountA(.Range("A:A"))
   
7.         ReDim arr(1 To cts - 1, 1 To 4)
   
8.         
   
9.         For ln = 2 To cts
   
10.             For cn = 3 To 5 Step 2
    
11.                 If .Cells(ln, cn) <> "" Then
    
12.                     arr(Asc(.Cells(ln, cn).Value) - 64, cn - 2) = .Cells(ln, cn)
    
13.                     arr(Asc(.Cells(ln, cn).Value) - 64, cn - 1) = .Cells(ln, cn + 1)
    
14.                 End If
    
15.             Next cn
    
16.         Next ln
    
17. 
    
18.         .[G2].Resize(cts - 1, 4) = arr
    
19.     End With
    
20. End Sub

½Æ»s¥N½X