求助，单元格数值加一问题

vba至于吗这么难

各位大佬，现将A1:B10区域的每个单元格数据加1，加1后将区域内等于10的值变为0,因实际的数据大概有2000行，而且需要多次运算，用右侧的代码较慢，看能否用其他方式，谢谢啦~~原表附后

vba至于吗这么难

感谢大家施以援手~~~

tmplinshi

1. Sub test()
   
2.     [A1:B10] = [ Right(A1:B10 + 1) ]
   
3. End Sub

复制代码

vba至于吗这么难

tmplinshi 发表于 2023-2-2 16:32

全部变成1了

半百

多循环了一遍，一遍即可。
将区域装进数组，循环数组，最后再一写入单元格。

vba至于吗这么难

半百 发表于 2023-2-2 16:45
多循环了一遍，一遍即可。
将区域装进数组，循环数组，最后再一写入单元格。

数组我不懂啊大佬，能否指教一下...

tmplinshi

为什么会全部变成1?

vba至于吗这么难

就是全部都一个数字...我是Excel2007..

gaojun8231

tmplinshi 发表于 2023-2-2 16:32

这是什么原理啊？？？

tmplinshi

这样呢?

1. [A1:B10] = [ Mod(A1:B10 + 1, 10) ]

复制代码