VBA代码求解

搬砖玄武 · 发表于 2024-8-15 23:02

数据汇总现在用的是sumif,后期数据多函数卡顿，希望哪位大神能够指点下用VBA代码实现SUMIF跨表同类汇总的效果

liulang0808 · 发表于 2024-8-16 07:18

Sub 按钮31_Click()
arr = Sheets("出库").UsedRange
Set d = CreateObject("scripting.dictionary")
For j = 2 To UBound(arr)
      d(arr(j, 2)) = d(arr(j, 2)) + Val(arr(j, 5))
Next j
arr = Sheets("目录").UsedRange
For j = 2 To UBound(arr)
      If d.exists(arr(j, 1)) Then
         arr(j, 5) = d(arr(j, 1))
      Else
'          arr(j, 5) = d(arr(j, 1))
      End If
Next j
Sheets("目录").UsedRange = arr
End Sub

liulang0808 · 发表于 2024-8-16 07:19

附件内容供参考。。。。

悠扬的旋律 · 发表于 2024-8-16 15:55

Sub Macro1()
数组 = 一二_PIVOTBY([出库!B2:E129], , "0", 4)
选择列数组1, 数组, 1
选择列数组2, 数组, 2
数组 = 选择行_CHOOSEROWS(数组2, 查找_MATCH([A2:A3840], 数组1, 1))
数组到单元格数组, [F2]
End Sub

复制代码

悠扬的旋律 · 发表于 2024-8-16 16:07

新建 XLS 工作表.rar (291.54 KB, 下载次数: 3)

dy83797465268 · 发表于 2024-8-16 16:43

application.workbookfunction.sumif 也不慢

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

[求助] VBA代码求解