若前2列相同合并第三列

qasmjh · 发表于 2018-8-1 12:36

本帖最后由 qasmjh 于 2018-8-1 14:03 编辑

公司连接门禁的电脑坏了，没有软件处理，直接导出的数据；
需要根据前2列，合并第3列的数据；
请同事使用数据字典计算，老是报错，求助各位大神，谢谢！

为什么上传错误“Upload Error: 521”，图片(111k)和rar(20KB)压缩文件都不大啊能否帮百度网盘下载看看，或管理员能否帮上传
链接：https://pan.baidu.com/s/1G4EwFfQUVRc8OeISo9FKcA 密码：ciod

qasmjh · 发表于 2018-8-2 00:31

为什么图片和附件上传不了？？

蓝桥玄霜 · 发表于 2018-8-2 09:05

请见代码。

qasmjh · 发表于 2018-8-3 00:59

本帖最后由 qasmjh 于 2018-8-3 10:45 编辑

蓝桥玄霜发表于 2018-8-2 09:05
请见代码。

谢谢您的回复！

InStr(t(i), ",") 提示调用失败，是否需要安装什么函数包？
写了个比较啰嗦的，见图，因为时间可能不是顺序排列，又加了个宏排序

另外，因为时间不能计算，需转换为文本，怎么能调用excel中的函数？
D列全是日期格式，例如：2018/8/2
E列全是时间格式，例如：15:35:25

通过调用函数TEXT转换格式，D列转换为text还存于D列，下面的语句怎么改：
sheet1.cells（d：d）= Application.WorksheetFunction.TEXT(d：d,"yyyy-mm-dd")
sheet1.cells（e：e）= Application.WorksheetFunction.TEXT(e：e,"hh:mm")

qasmjh · 发表于 2018-8-9 00:08

本帖最后由 qasmjh 于 2018-8-10 10:21 编辑

蓝桥玄霜发表于 2018-8-2 09:05
请见代码。

蓝老师，提示“无效的过程调用或参数”分步执行应该是这句相关，能否帮看看
t(i) = Left(t(i), Len(t(i)) - 1)

不明白t(i) 是什么，从左边取t(i) 结果是什么？
“k = d.keys: t = d.items”
k定义的是关键字，代表的是A、B两列吗？
t返回值是什么？

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

[求助] 若前2列相同 合并第三列

[求助] 若前2列相同合并第三列