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

vba至于吗这么难

tmplinshi 发表于 2023-2-2 17:05
这样呢?

还是一样的，运行第一次全都是1，第二次全都是2....

vba至于吗这么难

tmplinshi 发表于 2023-2-2 17:05
这样呢?

还是一样的，运行第一次全都是1.第二次全都是2....

tmplinshi

1. Sub test()
   
2.     Dim arr(), i&, j&, rng As Range
   
3.    
   
4.     Set rng = Range("A1:B10")
   
5.     arr = rng.Value
   
6.    
   
7.     For i = 1 To UBound(arr)
   
8.         For j = 1 To UBound(arr, 2)
   
9.             arr(i, j) = (arr(i, j) + 1) Mod 10
   
10.         Next
    
11.     Next
    
12.    
    
13.     rng.Value = arr
    
14. End Sub

复制代码

vba至于吗这么难

tmplinshi 发表于 2023-2-2 17:12

数值都加一了，但10还没变成 0

vba至于吗这么难

vba至于吗这么难 发表于 2023-2-2 17:15
数值都加一了，但10还没变成 0

我把mod这个改了，可以用，等会看大量数据会不会速度好一点，谢谢~~

tmplinshi

gaojun8231 发表于 2023-2-2 17:05
这是什么原理啊？？？

[] 是 Evaluate 函数的缩写, 可以用来执行公式.

[A1:B10] 返回的是一个 Range 对象
[ Right(A1:B10 + 1) ] 返回的是数组

[A1:B10] = [ Right(A1:B10 + 1) ]
等同于
Range("A1:B10").Value = Evaluate("Right(A1:B10 + 1)")

gwjkkkkk

参与一下。。。

半百

vba至于吗这么难 发表于 2023-2-2 16:48
数组我不懂啊大佬，能否指教一下...

demonimissyou

Sub 替换()
Dim i, k, j, arr, brr
i = [A65536].End(xlUp).Row
arr = Range("A1:B" & i)
ReDim brr(1 To UBound(arr), 1 To 2)
For j = 1 To 2
For k = 1 To UBound(arr)
brr(k, j) = arr(k, j) + 1
If brr(k, j) = "10" Then
brr(k, j) = 0
End If
Next
Next
[A1].Resize(UBound(brr), 2) = brr

End Sub