【問題】excel某欄位的值，轉成有"該數值"列的1?

[neokao]

我有excel相關問題想請教眾高手：

我想讀取某欄位的值，轉成有"該數值"列的1（或0亦可），例如A1是80，則我想在C91到C170都填成"1"，亦即會轉成80列的1，或者讀到B2是20，則在C171起（到C190止）新增20個儲存格的0，看似簡單，可是我找不到相關的function?

多謝了！

[pavo]

請使用 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]

我有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

這樣是你要的嗎？