把对应日期的数据自动填入

7993708 · 发表于 2024-5-21 14:48

本帖最后由 7993708 于 2024-5-22 09:49 编辑

新到一个公司太难求在大神帮忙：

说明：
1.“C"和"E"列为一组，"L"和"S"为一组.只有两列一样才视为同一种产品
2,“原表”和"每日数据"表中的"产品名称“和“加工说明”相匹配，一至的就把数据填入相应的日期
3.把对应日期的数据自动填入到 "每日数据"表中
物品名称不区分大小写字母

用的是WPS
谢谢论坛各位大师。微信截图_20240521143358.png

3190496160 · 发表于 2024-5-21 15:18

先把K列的日期规范再说呗

ykcbf1100 · 发表于 2024-5-21 15:18

本帖最后由 ykcbf1100 于 2024-5-21 15:20 编辑

附件供参考。。。
注意：a列和k列日期格式保持现状，如果有改变，代码要修改。日期最好统一。

ykcbf1100 · 发表于 2024-5-21 15:19

参与一下。。。

Sub ykcbf() '//2024.5.21
Set d = CreateObject("Scripting.Dictionary")
With Sheets("原表")
r = .Cells(Rows.Count, 1).End(3).Row
arr = .[a1].Resize(r, 6)
For i = 3 To UBound(arr)
s = Day(arr(i, 1)) & "|" & arr(i, 3) & "|" & arr(i, 5)
d(s) = d(s) + arr(i, 6)
Next
r = .Cells(Rows.Count, "k").End(3).Row
arr = .[k1].Resize(r, 9)
For i = 3 To UBound(arr)
rq = Split(arr(i, 1), ".")(2)
s = rq & "|" & arr(i, 2) & "|" & arr(i, 9)
d(s) = d(s) + arr(i, 3)
Next
End With
With Sheets("每日数据")
r = .Cells(Rows.Count, 2).End(3).Row
For i = 3 To r
For j = 14 To 44
s = .Cells(2, j) & "|" & .Cells(i, 2) & "|" & .Cells(i, 3)
If d.exists(s) Then
.Cells(i, j) = d(s)
Else
.Cells(i, j) = ""
End If
Next
Next
End With
Set d = Nothing
MsgBox "OK！"
End Sub

复制代码

7993708 · 发表于 2024-5-21 15:31

本帖最后由 7993708 于 2024-5-21 16:00 编辑

3190496160 发表于 2024-5-21 15:18
先把K列的日期规范再说呗

老师，日期格式已更新，麻烦重新下载，谢谢你

7993708 · 发表于 2024-5-21 15:35

本帖最后由 7993708 于 2024-5-21 15:56 编辑

ykcbf1100 发表于 2024-5-21 15:19
参与一下。。。

感谢老师，考虑到以后查询方便，日期格式已更新附件，麻烦老师帮我修改，能不能不区分大小写, 感谢

ykcbf1100 · 发表于 2024-5-21 16:04

7993708 发表于 2024-5-21 15:35
感谢老师，考虑到以后查询方便，日期格式已更新附件，麻烦老师帮我修改，能不能不区分大小写, 感谢

改好了。。。

7993708 · 发表于 2024-5-21 16:24

ykcbf1100 发表于 2024-5-21 16:04
改好了。。。

老师，其它没问题，怎么不区分大小写? 感谢

feilanga · 发表于 2024-5-21 16:29

.................

feilanga · 发表于 2024-5-21 16:33

大小写。。。。。。

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

[已解决] 把对应日期的数据自动填入

评分

评分

评分

评分

评分