iT邦幫忙

0

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

excel vba
penflyman 2023-01-17 04:42:03 ‧ 1751 瀏覽

  • 分享至 

  • xImage

範圍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 }} |
{{ formatDate(item.duration) }}
直播中

2 個回答

0
亂皮皮
iT邦新手 2 級 ‧ 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
登入發表回應
0
ccenjor
iT邦高手 1 級 ‧ 2023-01-17 19:35:23

AB2:
=IF(A$1=0,A2+1,A2)
將公式複製到AB2:BA10000。
按ALT+F11開啟VBA視窗，寫下列程序。
https://ithelp.ithome.com.tw/upload/images/20230117/20109881AVP8HSGsjr.jpg
以後需要時執行即可。

登入發表回應

我要發表回答

立即登入回答
iThome鐵人賽
參賽組數
1123 組
團體組數
52 組
累計文章數
23096 篇
完賽人數
656 人
iT+看影片追技術 看影片追技術 看更多
熱門tag 看更多
15th鐵人賽 13th鐵人賽 14th鐵人賽 12th鐵人賽 11th鐵人賽 鐵人賽 2019鐵人賽 2018鐵人賽 javascript 2017鐵人賽 python windows php c# windows server linux css 程式設計 react vue.js
熱門問題
熱門回答
熱門文章
IT邦幫忙