oobird

1. Sub yy()
   
2.     Dim rng, arr, t$, w$, i%, j%
   
3.     With Sheet1
   
4.         rng = .Range(.[a2], .[g65536].End(3))
   
5.     t = "12345678901234567890123"
   
6.     ReDim arr(1 To UBound(rng), 0)
   
7.     For i = 1 To UBound(rng)
   
8.         w = rng(i, 2) & rng(i, 3) & rng(i, 4) & rng(i, 5) & rng(i, 6) & rng(i, 7)
   
9.         For j = 1 To 23
   
10.             x1 = Mid(w, j, 1) * Mid(t, j, 1)
    
11.             arr(i, 0) = arr(i, 0) + x1
    
12.         Next
    
13.     Next
    
14.     .[h2].Resize(i - 1, 1) = arr
    
15.     End With
    
16. End Sub

½Æ»s¥N½X