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

天天天亮

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

2024-4-2 11:51 上传

点击文件名下载附件

3190496160

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

半百

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

1. Sub test()
   
2. Set d = CreateObject("Scripting.Dictionary")
   
3. For i = 4 To Sheets.Count
   
4.     d(Sheets(i).Name) = ""
   
5. Next
   
6. arr = Sheets("汇总").UsedRange
   
7. For i = 2 To UBound(arr)
   
8.     s = arr(i, 13)
   
9.     If d.exists(s) Then
   
10.         With Sheets(s)
    
11.             r = .Cells(Rows.Count, 1).End(3).Row
    
12.             For j = r To 2 Step -1
    
13.                 If .Cells(j, 1) = Int(arr(i, 19)) Then
    
14.                     If .Cells(j, 3) = "" Then
    
15.                         .Cells(j, 3) = arr(i, 1)
    
16.                         .Cells(j, 4) = arr(i, 19)
    
17.                     Else
    
18.                         .Rows(j).Insert
    
19.                         .Cells(j, 1) = .Cells(j + 1, 1)
    
20.                         .Cells(j, 3) = arr(i, 1)
    
21.                         .Cells(j, 4) = arr(i, 19)
    
22.                     End If
    
23.                 End If
    
24.             Next
    
25.         End With
    
26.     Else
    
27.         MsgBox "找不到" & s
    
28.     End If
    
29. Next
    
30. End Sub
    

复制代码

LIUZHU

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

天天天亮

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

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

天天天亮

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

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

天天天亮

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

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

半百

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

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

天天天亮

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

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

应该怎么改，多谢多谢