如何把汇总表里的数据跟各个工作表的数据进行匹配，并填到各个工作表中去

天天天亮 · 发表于 2024-4-2 12:07

各位大神，帮忙看一下，我如何把工作簿中的“汇总”工作表里的M列和S列（S列只要前面的日期），到各个工作表去比匹配G列和A列，如果数据相同，则把汇总表里的“收集单号”列填到相应的工作表中的“收集单号”列，把汇总表里的“收报时间”列填到相应的工作表中的“收报时间”列，等等，即把汇总表里的数据全部填过去。如果工作簿中的“汇总”工作表里的M列和S列（S列只要前面的日期）有两个一样的数据，则匹配数据后自动在相应的养殖场工作表中相应的日期下插入一行，在A列填入日期后，把数据复制过去。即把汇总表里匹配到的两个数据源都填过去。如果“汇总”工作表中有数据，但找不到相应的工作表，则提示“找不到该养殖场”。现在有200多个工作表，应该如何去匹配，多谢各位

无害化处理审核各养殖场数据.zip (357.17 KB, 下载次数: 9)

3190496160 · 发表于 2024-4-2 12:37

有两个一样的数据，则匹配数据后自动在相应的养殖场工作表中相应的日期下插入一行，在A列填入日期后，把数据复制过去
问题不难，但是，这点就非常繁琐

半百 · 发表于 2024-4-2 13:59

首先请务必统一汇总表的M列与各分表完全相同，比如不要简称全称混用，比如工作表“马山县林圩镇隆胜养专业合作社”就少了个“殖”字。

Sub test()
Set d = CreateObject("Scripting.Dictionary")
For i = 4 To Sheets.Count
d(Sheets(i).Name) = ""
Next
arr = Sheets("汇总").UsedRange
For i = 2 To UBound(arr)
s = arr(i, 13)
If d.exists(s) Then
With Sheets(s)
r = .Cells(Rows.Count, 1).End(3).Row
For j = r To 2 Step -1
If .Cells(j, 1) = Int(arr(i, 19)) Then
If .Cells(j, 3) = "" Then
.Cells(j, 3) = arr(i, 1)
.Cells(j, 4) = arr(i, 19)
Else
.Rows(j).Insert
.Cells(j, 1) = .Cells(j + 1, 1)
.Cells(j, 3) = arr(i, 1)
.Cells(j, 4) = arr(i, 19)
End If
End If
Next
End With
Else
MsgBox "找不到" & s
End If
Next
End Sub

复制代码

LIUZHU · 发表于 2024-4-2 14:45

写入分表数据不难，关键是有两个一样的数据，需要在分表中插入一列，感觉这个做法的问题很大。如果分表和汇总表都是需要手工维护的，感觉分表的数据容易被破坏。

天天天亮 · 发表于 2024-4-2 15:27

LIUZHU 发表于 2024-4-2 14:45
写入分表数据不难，关键是有两个一样的数据，需要在分表中插入一列，感觉这个做法的问题很大。如果分表和汇 ...

如果有重复数据，即当天有两个单号，在分表中相应日期插入一行，这个数据就客观存在了，不会再去删减了，数据应该不会被破坏

天天天亮 · 发表于 2024-4-2 15:42

半百发表于 2024-4-2 13:59
首先请务必统一汇总表的M列与各分表完全相同，比如不要简称全称混用，比如工作表“马山县林圩镇隆胜养专业 ...

感谢老师指导，但这个汇总表数据历完之后，总是MsgBox “找不到”，跳不出循环

天天天亮 · 发表于 2024-4-2 15:55

天天天亮发表于 2024-4-2 15:42
感谢老师指导，但这个汇总表数据历完之后，总是MsgBox “找不到”，跳不出循环

另外，我是想把汇总表里A列到BN列有用的数据全部复制过去，比如汇总表里耳标号1复制到分表里的耳标号1列，汇总表里耳标号2复制到分表里的耳标号2列

半百 · 发表于 2024-4-2 16:03

天天天亮发表于 2024-4-2 15:42
感谢老师指导，但这个汇总表数据历完之后，总是MsgBox “找不到”，跳不出循环

因为表中有许多空白单元格被包括进UsedRange里了，可能用end确定A列最后的非空单元格，将实际有内容的区域输入数组。

天天天亮 · 发表于 2024-4-2 16:55

半百发表于 2024-4-2 16:03
因为表中有许多空白单元格被包括进UsedRange里了，可能用end确定A列最后的非空单元格，将实际有内容的区 ...

老师，有两个问题，1.运行后如果识别到分表中相应的“收集单号”和“日期”已经存在，则跳到下一个数据。要不然就出错了，又重复把数据复制过来了。
2.分表中除了“审核时间”，“审核人”，“备注”列外，C列到BJ列的数据全部要从“汇总表”里copy过来。

应该怎么改，多谢多谢

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

[求助] 如何把汇总表里的数据跟各个工作表的数据进行匹配，并填到各个工作表中去