二个数组数据量大时运行错误

sc204400 · 发表于 2022-12-18 09:05

本帖最后由 sc204400 于 2022-12-18 10:56 编辑

类别一个数组，月份一个数据进行汇总时，数据量在5000行左右可以正确运行，数据量一大， ReDim brr(1 To UBound(arr), 1 To UBound(arr)) 执行到这个语句时出现错误，但是没有提示内存溢出

收入明细.rar (1.58 MB, 下载次数: 9)

suiyuanban · 发表于 2022-12-18 09:14

我测试了，没有报错，建议你上传报错截图

zxsea_7426 · 发表于 2022-12-18 09:21

我这里报内存溢出

sc204400 · 发表于 2022-12-18 09:26

奇了怪，之前不报内存溢出，现在重新执行了一下，报了内存溢出错误了

松野 · 发表于 2022-12-18 09:41

列数定义错了，列定义的和行一样多，肯定溢出

zxsea_7426 · 发表于 2022-12-18 09:52

修改如下：

精简后如下：
运行后结果：

3190496160 · 发表于 2022-12-18 10:10

Sub 主营收入月明细()
Dim brr()
Set d = CreateObject("scripting.dictionary")
With Sheets("已开发票明细表")
arr = .Range(Sheets("已开发票明细表").Cells(1, 1), Sheets("已开发票明细表").Cells(Rows.Count, 40).End(xlUp))
End With
k = 1
y = 1
For i = 2 To UBound(arr)
If Trim(arr(i, 1)) <> "" And Trim(arr(i, 40)) <> "" Then
      ReDim Preserve brr(1 To UBound(arr), 1 To y)
      t = d(Trim(arr(i, 1)))
      If t = "" Then
         k = k + 1
         d(Trim(arr(i, 1))) = k
         t = k
         brr(k, 1) = arr(i, 1)
      End If
      lh = d(Trim(arr(i, 40)))
      If lh = "" Then
         y = y + 1
         ReDim Preserve brr(1 To UBound(arr), 1 To y)
         d(Trim(arr(i, 40))) = y
         lh = y
         brr(1, y) = arr(i, 40)
      End If
      brr(t, lh) = brr(t, lh) + arr(i, 23)
End If
Next i
With Sheets("主营收入月明细")
.UsedRange.Clear
.[c7].Resize(k, y) = brr
.[c7].Resize(k, y).Borders.LineStyle = 1
End With
Set d = Nothing
End Sub

3190496160 · 发表于 2022-12-18 10:11

收入明细.rar (1.49 MB, 下载次数: 2)

fzxba · 发表于 2022-12-18 10:18

收入明细.rar (1.45 MB, 下载次数: 9)

sc204400 · 发表于 2022-12-18 10:54

fzxba 发表于 2022-12-18 10:18

SQL的效率也是杠杠的，没想到有这么多的方式

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

[已解决] 二个数组数据量大时运行错误

评分

评分

评分