v60i

回復 10# Hsieh


    大大 如果E2值跟B2值都在SHEET 2 那該怎麼改呢?

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

複製代碼

v60i

回復 12# Hsieh


    大大 你得[F:F] = ""
市蛇麼意思呢

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)

下載次數: 11

2011-11-9 08:39

如附件，謝謝大大撥冗幫忙！

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),"")
你的檔案有點怪異,找不出你是如何造成的
為何 F1    這相對位置沒隨位置來改變, 可是$C$2 這絕對位置 ,卻會隨位置來改變   
正常公式如圖:

下載 (76.53 KB)

2011-11-9 12:45

v60i

回復 14# GBKEE


    大大 我發現如果把F2  換成F30  那次數會有點問題說

我直接亂稿 ROWS()-28  就OK了

howdyisme

回復 16# GBKEE


    大大我發現端倪了，可能是新版EXCEL的緣故，不能用","而是要以";"來做分界，我這樣下拉就可以正常顯示了！