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

UNIMOG4000 · 发表于 2018-6-17 11:30

版主辛苦了，感谢分享！

lpxkk · 发表于 2018-7-9 20:12

站位，慢慢的细读

hbhn · 发表于 2018-8-13 17:11

版主辛苦了，感谢分享！

hanksky · 发表于 2018-9-8 12:23

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

这个代码中，那个条件是定位A列为筛选条件的，如果要改B列，改代码的哪里

hanksky · 发表于 2018-9-8 12:23

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

这个代码中，那个条件是定位A列为筛选条件的，如果要改B列，改代码的哪里

liulang0808 · 发表于 2018-9-8 17:00

hanksky 发表于 2018-9-8 12:23
这个代码中，那个条件是定位A列为筛选条件的，如果要改B列，改代码的哪里

For j = 2 To UBound(arr)
         If d.exists(arr(j, 1)) Then
            Set d(arr(j, 1)) = Union(d(arr(j, 1)), .Cells(j, 1).Resize(1, 3))
         Else
            Set d(arr(j, 1)) = .Cells(j, 1).Resize(1, 3)
         End If
      Next j

其中arr(j, 1) 修改成arr(j,2)看看

沙砾哥哥 · 发表于 2018-11-4 00:43

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

有用...................

jeremy1984 · 发表于 2018-12-17 15:25

mark，好贴，留着慢慢学习

go0517 · 发表于 2018-12-20 20:43

全是字典，历害

sss123ss · 发表于 2019-1-3 11:13

版主辛苦了，感谢分享！

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

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