neokao
2008-03-21, 03:00 PM
我有excel相關問題想請教眾高手:
我想讀取某欄位的值,轉成有"該數值"列的1(或0亦可),例如A1是80,則我想在C91到C170都填成"1",亦即會轉成80列的1,或者讀到B2是20,則在C171起(到C190止)新增20個儲存格的0,看似簡單,可是我找不到相關的function?
多謝了!
贊助商連結
請使用 VBA
Sub PCZone()
A = Range("A1").Value '讀取目標儲存格數值
For COUNTER = 1 To A '迴圈開始
Cells(5, 6).Select '插入空格起始點
Selection.Insert Shift:=xlDown '插入一個空格 原有儲存格往下移動
ActiveCell.FormulaR1C1 = "1" '填入 1
Next
'程式結束
End Sub
這是程式片段而已.還有一些 定義.判斷數值....等等. 其中數值請自行修改
stool100
2008-03-21, 11:40 PM
我有excel相關問題想請教眾高手:
我想讀取某欄位的值,轉成有"該數值"列的1(或0亦可),例如A1是80,則我想在C91到C170都填成"1",亦即會轉成80列的1,或者讀到B2是20,則在C171起(到C190止)新增20個儲存格的0,看似簡單,可是我找不到相關的function?
多謝了!
比如A1 輸入10
希望 A2-A11 都是顯示1 .
A2 輸入 =IF(ROW(A2)<=$A$1,"1","")
然後複製到 A2之後所有 CELL
這樣是你要的嗎?