VBA多条件，输出多类型数据汇总

61866985 · 发表于 2018-5-30 18:30

VBA.rar (11.05 KB, 下载次数: 6)

skyzxh · 发表于 2018-5-30 19:29

什么条件？。。。。。。。。。

abc123281 · 发表于 2018-5-30 19:39

用字典或sql

61866985 · 发表于 2018-5-30 19:50

abc123281 发表于 2018-5-30 19:39
用字典或sql

用SQL做，是比较简单的。
我想要用字典和数组，不知道能指点下吗？

abc123281 · 发表于 2018-5-30 20:06

呵呵既然用sql 比较简单那把你写的代码传上来我们分享学习一下吧

lsc900707 · 发表于 2018-5-30 20:30

本帖最后由 lsc900707 于 2018-5-30 20:32 编辑

Sub gj23w98()
Set d = CreateObject("scripting.dictionary")
Dim brr(1 To 10000, 1 To 6)
arr = [a1].CurrentRegion
For i = 2 To UBound(arr)
s = arr(i, 1) & arr(i, 2)
If Not d.exists(s) Then
m = m + 1
d(s) = m
For j = 1 To 6
brr(m, j) = arr(i, j)
Next
Else
k = d(s)
For j = 3 To 6
brr(k, j) = brr(k, j) + arr(i, j)
Next
End If
Next
[i2].Resize(m, 6) = brr
End Sub

复制代码

abc123281 · 发表于 2018-5-30 21:16

VBA123.rar (22.38 KB, 下载次数: 17)

61866985 · 发表于 2018-5-31 08:48

lsc900707 发表于 2018-5-30 20:30

前面用d(s) = m，记住行数，后面重复出现的用k = d(s)，这样之前没想到，学习了，谢谢！

61866985 · 发表于 2018-6-7 22:50

abc123281 发表于 2018-5-30 21:16

能再请教个问题吗？（SQL引用数组作为数据源，有这操作吗？）
平常是用SQL引用表格
即：strSQL = "SELECT distinct 省份, sum(数量) From [Sheet1$A:F] GROUP BY 省份"

现在想问，能引用数组到SQL做查询吗？
即：先赋表格给数组arr
再 strSQL = "SELECT distinct 省份, sum(数量) From arr GROUP BY 省份"

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

[求助] VBA多条件，输出多类型数据汇总

评分

评分