²Ö¥[°ÝÃD

v60i

B2=1
C2=2
D2=20
E2=1000
F2=B2+C2  ¡÷3
F3=F2+C2  ¡÷5
F4=F3+C2  ¡÷7
.
.
.
F10=F9+C2  ¡÷19
F11=B2+C2  ¡÷3
F12=F11+C2  ¡÷5
F13=F12+C2  ¡÷7
.
.
.
¥H¤WF¦C¬°¶Ç²Î¤â°Ê¼gªk

½Ð°Ý¦³¤°»ò¶i¶¥¤èªk¥i¥HÅý
F ±Æ¤¤ªº­È¦pªG¤j©óD2=20
´N¦Û°Ê¦^´_¦¨F2,F3,F4´`Àô¤U¥h©O?
¦Ó¥B´`Àô¤£¶W¹LE2=1000

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

v60i

¦^´_ 14# GBKEE


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

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

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

howdyisme

¦^´_ 5# GBKEE


    test01.zip (8 KB)

¤U¸ü¦¸¼Æ: 11

2011-11-9 08:39

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

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),"")

v60i

¦^´_ 12# Hsieh


    ¤j¤j §A±o[F:F] = ""
¥«³D»ò·N«ä©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

¦^´_ 10# Hsieh


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

Hsieh

1. Sub yy()
   
2. k = [E2]
   
3. ReDim ar(k)
   
4. Do While i < k
   
5.    For j = [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

¦^´_ 9# v60i