- ©«¤l
- 5923
- ¥DÃD
- 13
- ºëµØ
- 1
- ¿n¤À
- 5986
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW°ò¶©
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2022-1-23
        
|
¦^´_ 1# winston219 - Sub Ex()
- Dim Ar(), Ar1(), A, MyStr, I
- For Each A In Range("B2", Range("B" & Rows.Count).End(xlUp).Address)
- MyStr = Join(Application.Transpose(Application.Transpose(A.Resize(, 6))), "")
- ReDim Ar(Len(MyStr) - 1)
- ReDim Ar1(Len(MyStr) - 1)
- For I = 1 To Len(MyStr)
- Ar(I - 1) = Val(Right(I, 1))
- Ar1(I - 1) = Val(Mid(MyStr, I, 1))
- Next
- A.Offset(, 6) = Application.SumProduct(Ar, Ar1)
- Next
- End Sub
½Æ»s¥N½X |
|