Sub 配送日报()
lastrow = Sheets("运营日报").Range("a1048576").End(xlUp).Row
arr = Sheets("运营日报").Range("a1:ab" & lastrow)
Set d = CreateObject("scripting.dictionary")
For a = 4 To lastrow
unite = arr(a, 1) & "|" & arr(a, 6) & "|" & arr(a, 26)
If Not d.exists(unite) Then
d.Add unite, ""
End If
Next

ReDim brr(1 To d.Count, 2)
i = 0
For Each k In d.keys
brr(i + 1, 0) = Split(k, "|")(0)
brr(i + 1, 1) = Split(k, "|")(1)
brr(i + 1, 2) = Split(k, "|")(2)
i = i + 1
Next
Sheets("配送日报表").Range("a3").Resize(UBound(brr), 3) = brr
d.RemoveAll

Call 基本信息录入

End Sub

最新文章

1. js 处理 html 标签转义 处理json中含有的ascii 编码
2. 如何使用 PagedList.Mvc 分页
3. TKinter的常用组件
4. 转：CentOS 7 安装Nginx
5. web开发workflow
6. 关于session更新的问题
7. 解决Cacti监控图像断断续续问题
8. 云支付整合Tp3.2.3代码整理
9. leetcode[159] Longest Substring with At Most Two Distinct Characters
10. [LeetCode] Number of Atoms 原子的个数
11. OSI 协议
12. luogu P1600 天天爱跑步
13. 不同版本Hibernate.获取SessionFactory的方式
14. [UE4]宏
15. BZOJ.4909.[SDOI2017]龙与地下城(正态分布 中心极限定理 FFT Simpson积分)
16. [转]基本Guava工具
17. 如何修改静态IP地址和动态IP地址
18. vue 常见报错问题
19. 清理tomcat日志大的文件
20. maven笔记（2）

热门文章

1. java-day27
2. 高程（三）----数组Array
3. 小程序onclick的写法？
4. HTTP信息头处理器
5. 微信小程序开发之https服务器搭建三步曲
6. Flask理论基础（一）视图函数和URL反转函数(url_for)
7. ros语音交互（五）移植科大讯飞语音识别到ros
8. linux部署tomcat项目
9. 笔记51 Mybatis快速入门（二）
10. 笔记49 在Spittr应用中整合Hibernate