曾经的回帖整理-字典案例部分

fuexcel77 · 发表于 2021-3-14 14:06

版主辛苦了，留下个标记，好好学习学习。

xvjiex · 发表于 2021-3-26 14:34

liulang0808版主字典案例部分就那么精彩，敬佩！

bj079 · 发表于 2021-4-1 10:22

liulang0808 发表于 2017-12-17 19:50

liulang0808版主，请教下，我按字典实例-05.zip，在前面增加五列：序号、省、县、镇、村，公式要怎样修改？
Sub 按钮2_Click()
Set d = CreateObject("scripting.dictionary")
arr = Sheets("原始数据").[a1].CurrentRegion
Application.ScreenUpdating = False
ActiveSheet.UsedRange.ClearContents
[a1] = "客户姓名"
For j = 2 To UBound(arr)
      If Not d.exists(arr(j, 1)) Then
         r = Cells(Rows.Count, 1).End(3).Row + 1
         d(arr(j, 1)) = r
         Cells(r, 1) = arr(j, 1)
      End If
      If Not d.exists(arr(j, 2)) Then
         c = Cells(1, Columns.Count).End(xlToLeft).Column + 1
         d(arr(j, 2)) = c
         Cells(1, c) = arr(j, 2)
      End If
      Cells(d(arr(j, 1)), Cells(d(arr(j, 2)))) = arr(j, 3) + Cells(d(arr(j, 1)), Cells(d(arr(j, 2))))
Next j
Application.ScreenUpdating = True
End Sub

cjjhpc · 发表于 2021-4-1 13:14

占个楼先

ching · 发表于 2021-4-13 17:49

liulang0808 发表于 2017-12-17 19:32
根据A列姓名，统计各个姓名对应的数量汇总
类似于分类汇总的功能

我用2019测了一个911823条的数据，不重复的453194条，怎么只计算到59979条。请指点。

liulang0808 · 发表于 2021-4-13 18:57

ching 发表于 2021-4-13 17:49
我用2019测了一个911823条的数据，不重复的453194条，怎么只计算到59979条。请指点。

具体看楼主附件才能确定的

ching · 发表于 2021-4-13 22:32

liulang0808 发表于 2021-4-13 18:57
具体看楼主附件才能确定的

附件大于2M了。基本情况是12万多条点没问题，14万就统计有问题了，生成很多#N/A。

shao81811 · 发表于 2021-4-14 00:02

求助希望将指定机种、料件相关信息批量替换为变更后部品
http://club.excelhome.net/thread-1578377-1-1.html
(出处: ExcelHome技术论坛)

65861954 · 发表于 2021-7-2 15:41

全部案例下载来根据自己理解再写一遍，然后对答案。谢谢版主分享这么强大的东西。谢谢！

David枫枫静静 · 发表于 2021-9-24 08:22

留下脚印学习

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

[原创] 曾经的回帖整理-字典案例部分