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

转角处的沉思 · 发表于 2023-6-21 11:15

本帖最后由转角处的沉思于 2023-6-21 11:17 编辑

liulang0808 发表于 2023-6-21 11:11
就是表格分列功能对应的代码是否有效执行

按钮1的代码没有执行，显示如：
客户姓名月份消费数量
A1#1月 20

liulang0808 · 发表于 2023-6-21 16:46

转角处的沉思发表于 2023-6-21 11:15
按钮1的代码没有执行，显示如：
客户姓名月份消费数量
A1#1月 ...

就是最后分列，你录制一段分列代码对应调整就可以了

转角处的沉思 · 发表于 2023-6-21 21:49

liulang0808 发表于 2023-6-21 16:46
就是最后分列，你录制一段分列代码对应调整就可以了

受版主启发，将这句 'Columns("A:A").TextToColumns Destination:=Range("A1"), OtherChar:="#"
改成Range("A:A").TextToColumns other:=True, OtherChar:="#"这句实现了分列功能。
顺便问下可否解释下：d(arr(j, 1) & "#" & arr(j, 2)) = d(arr(j, 1) & "#" & arr(j, 2)) + arr(j, 3)此句的功能
（是表示去重累加吗），看不大懂，谢谢。

liulang0808 · 发表于 2023-6-21 21:54

转角处的沉思发表于 2023-6-21 21:49
受版主启发，将这句 'Columns("A:A").TextToColumns Destination:=Range("A1"), OtherChar:="#"
改成Ran ...

是的，以第一列及第二列内容为关键字去重累加

◆华佗◆ · 发表于 2023-6-22 11:40

liulang0808 发表于 2023-6-21 21:54
是的，以第一列及第二列内容为关键字去重累加

老师，您能帮我看看这个？https://club.excelhome.net/threa ... tml?_dsign=67975514

qszq · 发表于 2023-8-12 14:39

感谢版主！谢谢分享！

dgseg · 发表于 2023-12-8 19:36

留个沙发，呵呵
说明版主帮人无数，予人玫瑰，手有余香。感谢！感谢！
祝愿论坛越来越好！

dgseg · 发表于 2023-12-8 19:39

留个沙发，呵呵
说明版主帮人无数，予人玫瑰，手有余香。感谢！感谢！
祝愿论坛越来越好！

Sc2022 · 发表于 2024-1-26 10:45

经典案列，慢慢偷学

Sukichan22 · 发表于 2024-2-15 13:50

謝謝老師的分享！受益無窮~努力學習

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

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

评分