关于写值，必须数组批量处理才会计算快

sampsonpon · 发表于 2024-10-22 10:54

关于写值，具体描述如下：

z865593849 · 发表于 2024-10-22 11:19

micch · 发表于 2024-10-22 11:34

这种计算，函数就足够快了吧

sampsonpon · 发表于 2024-10-22 11:44

z865593849 发表于 2024-10-22 11:19

arr(i,5)=……这句通不过，提示错误：要求对象

sampsonpon · 发表于 2024-10-22 11:46

micch 发表于 2024-10-22 11:34
这种计算，函数就足够快了吧

F:AG列数据是通过代码转换来的，不可能A:D列再用公式吧，而且每次行数都不一样得拖公式了

kyxfyzg · 发表于 2024-10-22 12:15

sampsonpon 发表于 2024-10-22 11:44
arr(i,5)=……这句通不过，提示错误：要求对象

把括号位置改一下就行

Qs18 · 发表于 2024-10-22 12:24

Sub qs() '2024/10/22
Dim arr, i
With Sheet17
arr = .Range("l2:ae" & .Cells(Rows.Count, "l").End(xlUp).Row)
ReDim brr(1 To UBound(arr), 1 To 5)
For i = 1 To UBound(arr)
brr(i, 1) = Replace(arr(i, 1), " ", "") & Replace(arr(i, 2), " ", "")
brr(i, 2) = arr(i, 20) - arr(i, 5)
brr(i, 3) = arr(i, 6) - brr(i, 2)
If Date >= CDate(arr(i, 9)) Then
brr(i, 4) = "Y"
Else
brr(i, 4) = "N"
End If
brr(i, 5) = Year(CDate(arr(i, 9))) & Format(DatePart("ww", CDate(arr(i, 9))), "00")
Next
.Range("a2").Resize(UBound(arr), 5) = ""
.Range("a2").Resize(UBound(arr), 5) = brr
End With
End Sub

复制代码

Qs18 · 发表于 2024-10-22 12:25

试试..........

Qs18 · 发表于 2024-10-22 12:26

试试...........

sampsonpon · 发表于 2024-10-22 13:49

Qs18 发表于 2024-10-22 12:24

单独运行没问题，但被其它的Call后就报错

		自动登录	找回密码
密码			免费注册

[求助] 关于写值，必须数组批量处理才会计算快