下标越界的原因

nyzphsk

Option Explicit
sub 数组计算()
Dim x(), k%, s%
Dim W1 As Worksheet, W5 As Worksheet
Dim t1 As Date
Set W1 = Worksheets("汇总")
Set W5 = Worksheets("在途")
k = W1.Cells(Rows.Count, 1).End(xlUp).Row
x = W1.Range(Cells(2, 3), Cells(k, 3))
For s = 4 To k Step 1
   x(s, 3) = WorksheetFunction.SumIf(W5.Range("A1:A5000"), W1.Cells(s, 1), W5.Range("C1:C5000"))
Next s
W1.Range(Cells(2, 3), Cells(k, 3)) = x
MsgBox DateDiff("s", t1, Time())
End Sub

对数组计算不是很了解，在FOR循环中提示小标越界！！

山菊花

nyzphsk

山菊花 发表于 2023-3-30 14:14

谢谢，问题完美解决。感谢