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

liulang0808 · 发表于 2020-4-16 21:56

笨鸟飞不高发表于 2020-4-16 21:53
Cells(d(arr(j, 1)), Cells(d(arr(j, 2)))) = arr(j, 3) + Cells(d(arr(j, 1)), Cells(d(arr(j, 2))))
...

报错的时候，选择调试，看看各个变量对应的值是什么吧

笨鸟飞不高 · 发表于 2020-4-16 22:00

liulang0808 发表于 2020-4-16 21:56
报错的时候，选择调试，看看各个变量对应的值是什么吧

Cells(d(arr(j, 1)), d(arr(j, 2))) = arr(j, 3) + Cells(d(arr(j, 1)), d(arr(j, 2)))
改成这样就对了

笨鸟飞不高 · 发表于 2020-4-16 22:01

笨鸟飞不高发表于 2020-4-16 22:00
Cells(d(arr(j, 1)), d(arr(j, 2))) = arr(j, 3) + Cells(d(arr(j, 1)), d(arr(j, 2)))
改成这样就对了: ...

估计是手误

liulang0808 · 发表于 2020-4-16 22:01

笨鸟飞不高发表于 2020-4-16 21:55
11楼的这段代码

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)), d(arr(j, 2))) = arr(j, 3) + Cells(d(arr(j, 1)), d(arr(j, 2)))
Next j
Application.ScreenUpdating = True
End Sub

欧瑞博 · 发表于 2020-6-16 20:25

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

老师，我有数据源表（见图）A列日期，B列客户，C列数量，想根据A列日期拆分数据到各指定的月份表内。日期格式为（2月3日）。不知道能否实现。

欧瑞博 · 发表于 2020-6-16 22:15

欧瑞博发表于 2020-6-16 20:25
老师，我有数据源表（见图）A列日期，B列客户，C列数量，想根据A列日期拆分数据到各指定的月份表内。日期 ...

好的，感谢楼主，分享此贴。

云海拾贝 · 发表于 2020-6-21 22:09

收藏学习一下

cvc2004 · 发表于 2020-7-14 23:28

非常好，mark学习一下

五指山888 · 发表于 2020-11-3 16:22

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

学习了！很好的！

hongshan2019 · 发表于 2020-11-9 10:08

好贴，记录可随时学习

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

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

评分

点评