請問怎麼一次讓範圍內的數字都加1

excel vba

penflyman 2023-01-17 04:42:03 ‧ 1849 瀏覽

分享至

範圍a2:z10000數值
a1:z1是隨機的0或1
假如第一行a1出現0的時候底下a2:a10000所有數字的值都加1
我是用IF + FOR 一個一個加1，可是電腦跑很慢
請問有沒有更快速的方式，可以一次全加。

喵凹咿唉思嗯 iT邦研究生 5 級 ‧ 2023-01-17 13:16:37 檢舉

有試過countif ?

登入發表討論

直播研討會

{{ item.channelVendor }} {{ item.webinarstarted }} |

直播中

2 個回答

亂皮皮

iT邦新手 1 級 ‧ 2023-01-17 11:45:00

最佳解答

一定要用VBA做嗎?
用複製貼上也很快

Range("A1:Z1").Select
Selection.Copy
Range("A2:Z10000").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlAdd, SkipBlanks:=False, Transpose:=False

回應
分享
檢舉

登入發表回應

ccenjor

iT邦大師 9 級 ‧ 2023-01-17 19:35:23

AB2:
=IF(A$1=0,A2+1,A2)
將公式複製到AB2:BA10000。
按ALT+F11開啟VBA視窗，寫下列程序。

以後需要時執行即可。

回應
分享
檢舉

登入發表回應

我要發表回答

立即登入回答

請問怎麼一次讓範圍內的數字都加1

2 個回答

我要發表回答

標記使用者