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

[µo°Ý] Àx¦s®æ¤º¦³¦h¼Æ­È¥[¤@¼Æ­È

[µo°Ý] Àx¦s®æ¤º¦³¦h¼Æ­È¥[¤@¼Æ­È

½Ð±Ð¦U¦ì¤j¤j
°²³]A1¤º¦³¼Æ­È 1,2,3,4,5,6,7,8

B1ªº­È¬°6

C1·Q­nªº­pºâ¤è¦¡¬°1+6,2+6,3+6,4+6,5+6,7+6,8+6 , ¤]´N¬OA1¤ºªº¦U¼Æ­È+¤WB1ªº­È
¨ÃÅã¥Ü¬° 7,8,9,10,11,12,13,14

½Ð°ÝC1ªº¤½¦¡§Ú­n«ç»ò¥´?

=MID(A1,1,1)+B1&","&MID(A1,3,1)+B1&","&MID(A1,5,1)+B1&","&MID(A1,7,1)+B1&","&MID(A1,9,1)+B1&","&MID(A1,11,1)+B1&","&MID(A1,13,1)+B1&","&MID(A1,15,1)+B1
¦pªþÀɷнT»{  THANKS

1.rar (1.55 KB)

TOP

¥»©«³Ì«á¥Ñ Hsieh ©ó 2010-6-24 14:58 ½s¿è

¦r¦ê¤À¹j¼Æ¶q¤£©wªº¸Ü¤º«Ø¨ç¼Æ¼g¤£¥X
¸Õ¸Õ¦Û©w¸q¨ç¼Æ
  1. Function ESum(a$, b$, c&) As String '¤Þ¼Æa=A1,¤Þ¼Æb=",",¤Þ¼Æc=B1
  2. Dim Ay()
  3. ar = Split(a, b)
  4. For Each d In ar
  5. ReDim Preserve Ay(s)
  6. Ay(s) = Val(d) + c
  7. s = s + 1
  8. Next
  9. ESum = Join(Ay, b)
  10. End Function
½Æ»s¥N½X
ESUM.rar (5.72 KB)
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

ÁÂÁÂKITTYBOY¤j¤j~
§Aªº¤½¦¡§Ú¤ñ¸û¬Ý±oÀ´..
¤]ÁÂÁª©¥D

TOP

        ÀR«ä¦Û¦b : Ãø¦æ¯à¦æ¡AÃø±Ë¯à±Ë¡AÃø¬°¯à¬°¡A¤~¯àª@µØ¦Û§Úªº¤H®æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD