ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ½Ð°Ý¦p¦ó±N¦UÄæ¦ì¼Æ­È¤À³Î«á¡A¦A­¼¤W¹ïÀ³½X«á¥[Á`?

¦^´_ 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

TOP

        ÀR«ä¦Û¦b : ¶¢¤HµL¼Ö½ì¡A¦£¤HµL¬O«D¡C
ªð¦^¦Cªí ¤W¤@¥DÃD