求助VBA的汇总数据的问题

gwjkkkkk

字典很容易解决。。。

sdytsxd991122

学习一个

cai2532

统计汇总学习了。

zhangcheng6688

学习一下字典，打扰了
Sub test()
arr = [a1].CurrentRegion
Set d = CreateObject("scripting.dictionary")
ReDim brr(1 To UBound(arr), 1 To 3)
For i = 2 To UBound(arr)
   s = arr(i, 1) & arr(i, 2)
   If Not d.exists(s) Then
      m = m + 1
      For j = 1 To UBound(arr, 2)
         brr(m, j) = arr(i, j)
      Next
      brr(m, 3) = 1
      d(s) = m
   Else
      r = d(s)
      brr(r, 3) = brr(r, 3) + 1
   End If
Next
[d2].Resize(m, 3) = brr
End Sub

边缘码农

grf1973

LIUZHU 发表于 2024-6-27 18:39
数组可以作为字典的键么？

不知道，所以尝试一下，发现把数组自动转换成字符串了。网上查了一下，可能python或C可以。

LIUZHU

grf1973 发表于 2024-6-28 09:19
不知道，所以尝试一下，发现把数组自动转换成字符串了。网上查了一下，可能python或C可以。

Python确实可以，但是JS将数组转换为字符，也是不错的一个思路

跨越时空

统计.zip (11.69 KB, 下载次数: 1)

2024-6-28 13:36 上传

点击文件名下载附件

用SQL写的，D、E、F列字段以下自动显示

kuangben8

各位百花齐放！百家争鸣！佩服。学习