GBKEE

¦^´_ 1# winston219

1. Sub Ex()
   
2.     Dim Ar(), Ar1(), A, MyStr, I
   
3.     For Each A In Range("B2", Range("B" & Rows.Count).End(xlUp).Address)
   
4.         MyStr = Join(Application.Transpose(Application.Transpose(A.Resize(, 6))), "")
   
5.         ReDim Ar(Len(MyStr) - 1)
   
6.         ReDim Ar1(Len(MyStr) - 1)
   
7.         For I = 1 To Len(MyStr)
   
8.             Ar(I - 1) = Val(Right(I, 1))
   
9.             Ar1(I - 1) = Val(Mid(MyStr, I, 1))
   
10.         Next
    
11.         A.Offset(, 6) = Application.SumProduct(Ar, Ar1)
    
12.     Next
    
13. End Sub

½Æ»s¥N½X