Hsieh

¦^´_ 1# luke

1. Sub ex()
   
2. Dim Ay()
   
3. a = Array(0, 2.1, 4.1, 6.1, 8.1, 10.1, 12.1, 16.5, 20.5, 25.5, 30.5)
   
4. b = Array(2, 4, 6, 8, 10, 12, 16, 20, 25, 30, 40)
   
5. For Each c In [A1:J1]
   
6.    If InStr(c, ",") > 0 Then
   
7.       ar = Split(c, ",")
   
8.       For Each x In ar
   
9.         ReDim Preserve Ay(s)
   
10.         Ay(s) = x / [P1]
    
11.         s = s + 1
    
12.       Next
    
13.       d = Application.Max(Ay)
    
14.       e = Application.Sum(Ay)
    
15.       Erase Ay: s = 0
    
16.       Else
    
17.       d = c / [P1]: e = c / [P1]
    
18.    End If
    
19.    f = Application.Lookup(d, a, b)
    
20.    g = Application.Lookup(e, a, b)
    
21.    c.Offset(1).Resize(4, 1) = Application.Transpose(Array(d, f, e, g))
    
22. Next
    
23. End Sub

½Æ»s¥N½X