求助多个单独表格自动汇总

TEQUIER

123.rar (9.12 KB, 下载次数: 22)

2011-7-22 15:33 上传

点击文件名下载附件

我想知道怎么在此表中每个sheet（2.。。。。N）中的现有库存自动添加到sheet1中的现有库存里面··是添加最后那天的库存量··也就是每天制作好了怎么汇总过去···

mclly2000

N个工作表要汇总过来，难度有点大啊，VBA应该可以解决，你最好发到VBA版块，那里有高手。

ykcbf1100

VBA，借题练习

ykcbf1100

1. Sub ykcbf()   '//2025.3.26
   
2.     Application.ScreenUpdating = False
   
3.     Set d = CreateObject("Scripting.Dictionary")
   
4.     Set Sh = ThisWorkbook.Sheets("Sheet1")
   
5.     For Each sht In Sheets
   
6.         If sht.Name <> Sh.Name Then
   
7.             With sht
   
8.                 r = .Cells(Rows.Count, 9).End(3).Row
   
9.                 arr = sht.UsedRange
   
10.                 Sum = Application.Sum(.Cells(2, 9).Resize(r - 1))
    
11.                 s = arr(2, 1) & "|" & arr(2, 4)
    
12.                 d(s) = Sum
    
13.             End With
    
14.         End If
    
15.     Next
    
16.     With Sh
    
17.         arr = .UsedRange
    
18.         For i = 2 To UBound(arr)
    
19.             s = arr(i, 1) & "|" & arr(i, 4)
    
20.             If d.exists(s) Then
    
21.                 arr(i, 7) = d(s)
    
22.             Else
    
23.                 arr(i, 7) = ""
    
24.             End If
    
25.         Next
    
26.         .UsedRange = arr
    
27.     End With
    
28.     Set d = Nothing
    
29.     Application.ScreenUpdating = True
    
30.     MsgBox "OK！"
    
31. End Sub
    
32. 
    

复制代码

wdy895

1、建议把sheet2到sheetn的名称按照sheet1中A列的名称依次命名，并且保证后续表格的结构和前面的一样。
2、建议把sheet1中A列的物料名称全部补齐，例如A9，A11,A13,A15.
3、然后可以使用lookup＋indirect进行查找。