求助 用sumif和vlookup链接其他工作表信息

燃烧100°C

        请教在线老师 怎么用vba写代码 在同工作簿里面链接不同工作表的信息。因为每天都会更新，有时候数量行数多了，用函数运行起来就比较卡。

     感谢你的阅读并希望帮助解决，谢谢！

rym9401

一次传不了，只有搞分卷了。数据接着各表最后数据填写，然后选数据选项-全部刷新，即可更新。不知道你的数据量究竟多大，目前这点数据不算慢。清除公式会更快。

grf1973

1. Sub 汇总()
   
2.     Dim sh As Worksheet
   
3.     Set d = CreateObject("scripting.dictionary")
   
4.     arr = Sheets("每日出货").Range("a3:a" & Sheets("每日出货").Cells(Rows.Count, 1).End(3).Row)
   
5.     For i = 1 To UBound(arr)   '辅助列和行的关系
   
6.         d(arr(i, 1)) = i
   
7.     Next
   
8.     ReDim brr(1 To UBound(arr), 1 To 1)
   
9.     For Each t In Array("销售单列表", "出货信息", "入库信息")
   
10.         ReDim brr(1 To UBound(arr), 1 To 1)
    
11.         Set sh = Sheets(t)
    
12.         If t = "销售单列表" Then c1 = "G": c2 = "R": c = 27 'c1：数据列，c2:辅助列,c：本表中输出的列
    
13.         If t = "出货信息" Then c1 = "E": c2 = "O": c = 28
    
14.         If t = "入库信息" Then c1 = "D": c2 = "F": c = 74   'BV列
    
15.         r = sh.Range(c2 & Cells.Rows.Count).End(3).Row
    
16.         mydata = sh.Range(c1 & "1:" & c2 & r)
    
17.         cmax = UBound(mydata, 2)   '源数据的最大列（辅助列）
    
18.         For i = 2 To r
    
19.             k = mydata(i, cmax)
    
20.             If d(k) > 0 Then brr(d(k), 1) = brr(d(k), 1) + mydata(i, 1)
    
21.         Next
    
22.         Cells(3, c).Resize(UBound(arr), 1) = brr
    
23.         
    
24.         If t = "销售单列表" Then   '是否报关
    
25.             c = 77  'BY列
    
26.             ReDim brr(1 To UBound(arr), 1 To 1)
    
27.             For i = 2 To r
    
28.                 k = mydata(i, cmax)
    
29.                 If mydata(i, 6) <> "" And d(k) > 0 Then brr(d(k), 1) = mydata(i, 6)
    
30.             Next
    
31.             Cells(3, c).Resize(UBound(arr), 1) = brr
    
32.         End If
    
33.     Next
    
34. End Sub

复制代码

燃烧100°C

rym9401 发表于 2024-5-30 15:12
一次传不了，只有搞分卷了。数据接着各表最后数据填写，然后选数据选项-全部刷新，即可更新。不知道你的数 ...

首先非常感谢你在百忙中帮我解决问题，估计是在保存文档时没有选宏工作簿，造成丢失了代码。不楼上老师的也解决了我需要的问题。感谢2位老师的大力帮助！！！

燃烧100°C

grf1973 发表于 2024-5-30 15:24

非常感谢帮助我解决了问题，速度非常快的，而且还备注了代码说明，让我更容易看懂代码的意思，送花给你点赞！！！

一江春水1688

既然来到JSA专区，请带回JS代码：

建议，数据表格采用结构化引用，即在Sheet中选中原来的表格区域，点【插入】【表格】，详见：
对 Excel 表格使用结构化引用 - Microsoft 支持

假设，插入的【表格】分别命名为：每日出货表、销售表、出货表、入库表，则代码如下：

1. function 更新数据链接(){
   
2.         function setData(inInfo, inField, outField, outInfo = '每日出货表[辅助列]'){
   
3.                 const resObj = {}, tmpData = Range(`${inField}`).Value2;
   
4.                 Range(`${inInfo}`).Value2.forEach((x, i)=>
   
5.                         resObj[x[0]] = resObj[x[0]]==undefined ? tmpData[i][0] : resObj[x[0]] + tmpData[i][0]);
   
6.                 Range(`${outField}`).Value2 = Range(`${outInfo}`).Value2.map((x, i) => [resObj[x[0]]]);
   
7.         }
   
8.         const args = [ ['销售表[辅助列]', '销售表[订货数量]', '每日出货表[订货\n数量]'],
   
9.                 ['销售表[辅助列]', '销售表[是否报关]', '每日出货表[是否报关]'],
   
10.                 ['出货表[辅助列]', '出货表[实际出货量]', '每日出货表[出货\n数量]'],
    
11.                 ['入库表[辅助列]', '入库表[入库数量]', '每日出货表[入库\n数量]'] ];
    
12.         args.forEach(x => setData(...x));
    
13. }

复制代码

共13行代码，因为有2行代码太长，拆成耻多行，不计较代码长度的话，只有9行代码。


再写一段清洗数据的代码：

1. function clearData(){
   
2.         Range('每日出货表[[订货\n数量]:[出货\n数量]]').ClearContents();
   
3.         Range('每日出货表[入库\n数量]').ClearContents();
   
4.         Range('每日出货表[是否报关]').ClearContents();
   
5. }
   

复制代码

多次测试了运行时间，均不到0.2秒