標題: 請問一排數據全部減1,但不想要負數該如何處理? [打印本頁]

---

作者: jonn0510    時間: 2011-12-13 23:24     標題: 請問一排數據全部減1,但不想要負數該如何處理?

請教各位老師:
一排數據全部減1,但不想要負數該如何處理?

A B C D E F G H I J K L M N O
1 3 2 0 0 4 2 1 1 2 3 3 0 1 2

全部減1 希望能變成

A B C D E F G H I J K L M N O
0 2 1 0 0 3 1 0 0 1 2 2 0 0 1

正常來說用公式,即可馬上得到答案.但是數字 0 去減1 會變成-1,小弟希望數字 0 去減1 還是0.
如果數據是從A1~BJ1 可以直接用VBA的程序處理嗎?
謝謝

---

作者: a8350070    時間: 2011-12-13 23:34

A2=MAX(0,A1-1)
往右拉複製

---

作者: Hsieh    時間: 2011-12-13 23:36

回復 1# jonn0510


  [attach]8803[/attach]

---

作者: jonn0510    時間: 2011-12-14 23:31

回復 2# a8350070


TO:a8350070大大:
感謝您指點,我將其轉換成vbs來用了!
謝謝您

Range("A2").Select
    ActiveCell.FormulaR1C1 = "=MAX(0,R[-1]C-1)"
    Range("A2").Select
    Selection.AutoFill Destination:=Range("A2:J2"), Type:=xlFillDefault
    Range("A2:J2").Select

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)