[已解决]信息汇总

lgzxmlg

求助如何将分表中的“设备概况”中的信息汇总到“设备信息表”中。 设备档案冶炼出铁区域.rar (158.37 KB, 下载次数: 7)

2015-9-16 16:28 上传

点击文件名下载附件 求老师帮忙！！

最佳答案

月排行榜 / 总排行榜

grf1973

2015-9-16 16:42

请看附件。

跳转到最佳答案楼层

grf1973

1. Sub 导入文件()
   
2.     Application.ScreenUpdating = False
   
3.     Dim Filename, wb As Workbook, Sht As Worksheet
   
4.     Filename = Dir(ThisWorkbook.Path & "\*.xls")
   
5.     arr = Range("a1:e1000"): n = 1
   
6.     Do While Filename <> ""
   
7.         If Filename <> ThisWorkbook.Name Then
   
8.             fn = ThisWorkbook.Path & "" & Filename
   
9.             Set wb = Workbooks.Open(fn)
   
10.             Set Sht = wb.Worksheets("设备概况")
    
11.             n = n + 1: arr(n, 1) = n - 1
    
12.             For j = 2 To 5
    
13.                 x = arr(1, j)
    
14.                 Set xrng = Sht.UsedRange.Find(x)
    
15.                 If Not xrng Is Nothing Then arr(n, j) = xrng.Offset(0, 1)
    
16.             Next
    
17.             wb.Close False
    
18.         End If
    
19.         Filename = Dir
    
20.     Loop
    
21.     Set Sht = Nothing
    
22.     [a1].Resize(n, 5) = arr
    
23.     ActiveSheet.Columns.AutoFit
    
24.     Application.ScreenUpdating = True
    
25. End Sub
    

复制代码

grf1973

请看附件。