v60i

¦^´_ 10# Hsieh


    ¤j¤j ¦pªGE2­È¸òB2­È³£¦bSHEET 2 ¨º¸Ó«ç»ò§ï©O?

Hsieh

¦^´_ 11# v60i

1. Sub yy()
   
2. k = sheet2.[E2]
   
3. ReDim ar(k)
   
4. Do While i < k
   
5.    For j = sheet2.[B2] + [C2] To [D2] Step [C2]
   
6.      ar(i) = j
   
7.      i = i + 1
   
8.      If i = k Then Exit For
   
9.    Next
   
10. Loop
    
11. [F:F] = ""
    
12. [F2].Resize(k, 1) = Application.Transpose(ar)
    
13. End Sub

½Æ»s¥N½X

v60i

¦^´_ 12# Hsieh


    ¤j¤j §A±o[F:F] = ""
¥«³D»ò·N«ä©O

GBKEE

¦^´_ 7# v60i
F2=IF(ROW()-ROWS($F$2)<=$E$2,IF(OR((F1+$C$2)>$D$2,F1=0),$B$2+$C$2,F1+$C$2),"")

howdyisme

¦^´_ 5# GBKEE


    test01.zip (8 KB)

¤U¸ü¦¸¼Æ: 11

2011-11-9 08:39

¦pªþ¥ó¡AÁÂÁ¤j¤j¼·¤¾À°¦£¡I

GBKEE

¦^´_ 15# howdyisme
=IF(ROW()-ROWS($F$2)<=$E$2,IF(OR((F1+$C$2)>$D$2,F1=0),$B$2+$C$2,F1+$C$2),"")
§AªºÀɮצ³ÂI©Ç²§,§ä¤£¥X§A¬O¦p¦ó³y¦¨ªº
¬°¦ó F1    ³o¬Û¹ï¦ì¸m¨SÀH¦ì¸m¨Ó§ïÅÜ, ¥i¬O$C$2 ³oµ´¹ï¦ì¸m ,«o·|ÀH¦ì¸m¨Ó§ïÅÜ   
¥¿±`¤½¦¡¦p¹Ï:

¤U¸ü (76.53 KB)

2011-11-9 12:45

v60i

¦^´_ 14# GBKEE


    ¤j¤j §Úµo²{¦pªG§âF2  ´«¦¨F30  ¨º¦¸¼Æ·|¦³ÂI°ÝÃD»¡

§Úª½±µ¶Ã½Z ROWS()-28  ´NOK¤F

howdyisme

¦^´_ 16# GBKEE


    ¤j¤j§Úµo²{ºÝ­Ù¤F¡A¥i¯à¬O·sª©EXCELªº½t¬G¡A¤£¯à¥Î","¦Ó¬O­n¥H";"¨Ó°µ¤À¬É¡A§Ú³o¼Ë¤U©Ô´N¥i¥H¥¿±`Åã¥Ü¤F¡I