求大侠对比查询，并列项，谢谢！
时间：2011-08-12
来源：互联网
单位给每个人发物品，列了清单，根据清单把物品列在后面，并汇总每个人。谢谢！
查询.rar(2.14 KB)
附件
查询.rar(2.14 KB)
2011-8-12 08:29, 下载次数: 25
作者: lixueming 发布时间: 2011-08-12
楼主好像是在开玩笑 员工名单呢 那个员工该发啥东西呢
作者: yangrongguan 发布时间: 2011-08-12
希望发帖要郑重一些，避免浪费时间。
作者: swyrlbq 发布时间: 2011-08-12
上面不是有吗，第二列就是姓名，第三列是分发的东西。谢谢！
作者: lixueming 发布时间: 2011-08-12
请问 你的这个表格是结果表还是 原始表
作者: yangrongguan 发布时间: 2011-08-12
一定要做成附件一样的表格当然也是可以的，但是有点不伦不类的样子。
作者: 蓝桥玄霜 发布时间: 2011-08-12
复制内容到剪贴板
Dim Arr, i&, j&, aa, ab, r1
Arr = [a1].CurrentRegion
For i = 3 To UBound(Arr) - 1
aa = Split(Arr(i, 3), Chr(10))
For j = 0 To UBound(aa)
ab = Split(aa(j), "：")(1)
If InStr(ab, "元") = 0 Then
Set r1 = Sheet2.[c:c].Find(ab, , , 1)
If Not r1 Is Nothing Then
Arr(i, 4) = Arr(i, 4) + Sheet2.Cells(r1.Row, 4)
End If
Else
Arr(i, 4) = Arr(i, 4) + Val(Left(ab, Len(ab) - 1))
End If
Next
Next
[d1].Resize(UBound(Arr), 1) = Application.Index(Arr, 0, 4)
Cells(UBound(Arr), 4).Formula = "=sum(r3c:r[-1]c)"
End Sub
代码:
Sub yy()Dim Arr, i&, j&, aa, ab, r1
Arr = [a1].CurrentRegion
For i = 3 To UBound(Arr) - 1
aa = Split(Arr(i, 3), Chr(10))
For j = 0 To UBound(aa)
ab = Split(aa(j), "：")(1)
If InStr(ab, "元") = 0 Then
Set r1 = Sheet2.[c:c].Find(ab, , , 1)
If Not r1 Is Nothing Then
Arr(i, 4) = Arr(i, 4) + Sheet2.Cells(r1.Row, 4)
End If
Else
Arr(i, 4) = Arr(i, 4) + Val(Left(ab, Len(ab) - 1))
End If
Next
Next
[d1].Resize(UBound(Arr), 1) = Application.Index(Arr, 0, 4)
Cells(UBound(Arr), 4).Formula = "=sum(r3c:r[-1]c)"
End Sub
作者: 蓝桥玄霜 发布时间: 2011-08-12
请见附件。
查询0812.rar(8.51 KB)
附件
查询0812.rar(8.51 KB)
2011-8-12 12:26, 下载次数: 1
作者: 蓝桥玄霜 发布时间: 2011-08-12
相关阅读 更多
热门阅读
-
office 2019专业增强版最新2021版激活秘钥/序列号/激活码推荐 附激活工具
阅读：74
-
如何安装mysql8.0
阅读：31
-
Word快速设置标题样式步骤详解
阅读：28
-
20+道必知必会的Vue面试题（附答案解析）
阅读：37
-
HTML如何制作表单
阅读：22
-
百词斩可以改天数吗？当然可以，4个步骤轻松修改天数！
阅读：31
-
ET文件格式和XLS格式文件之间如何转化？
阅读：24
-
react和vue的区别及优缺点是什么
阅读：121
-
支付宝人脸识别如何关闭?
阅读：21
-
腾讯微云怎么修改照片或视频备份路径?
阅读：28
