2017-02-17 91 views

回答

0
sub fill_test() 
strt_column=5 
row=5 
for i=1 to 4 
a=sheet1.cells(i+4,3).value 
for j=strt_column to strt_column+a 
sheet1.cells(row,j).value=sheet1.cells(i+4,2).value 
next j 
strt_column=j+1 
row=row+1 
next i 
end sub 

試試這個...我還沒有測試的代碼,但我認爲它會工作.....如果那裏有任何錯誤評論回來....我會嘗試修復它們...

0

好吧....在思考如何短語問題後,我終於有了一個想法。請參閱我使用的公式(抱歉,我無法發佈圖像,但信譽低)。這不是最優雅的方式,因爲我仍然需要對第1行和第2行至第4行使用不同的公式。所以請分享您的想法!謝謝@SivaprasathV!

對於字母A:IF(E $ 4 < = $ C5,$ B5 「」) 對於字母B至d:IF(OR(E $ 4 < = SUM($ C $ 5:$ C5),E $ 4 > SUM($ C $ 5:$ C6)),「」,$ B6)

0

設置您的輸出區域如圖所示,帶有標題1-10和1-4。在(1,1)中輸入

=IF(AND(E$1<=SUM($B$1:$B2),E$1>SUM($B$1:$B1)),INDEX($A$2:$A$5,$D2,1),"") 

並拖動到所有單元格。確保美元符號正確。你應該有你想要的輸出

Screenshot

+0

額外指數()是美麗的。謝謝! – kswonder

相關問題