急急急！！！合并工作簿，需要帮助

zhangru2199

1、找到“数据业务”表格中A3：I24区域，找到A列（A6:A22）中,地市为“枣”提取“L数据业务流量(GB)”和“G数据业务流量(GB)”对应的数据

注意：不同时间的表格中“枣”的位置是变化的

2.分别把不同表格中“枣”所对应那两列的数据按照时间的先后顺序合并到“汇总工作簿”sheet1中

合并成功后的模板在“汇总工作簿”中，如果时间那一列不好抓取可以先实现合并这个功能，谢谢啦

巴闭啦

可以尝试一下用“加优小蓝条”，免费下载的，打开文件------里面有个Excel大师-----03 合并工具，可以试一试

lsdongjh

简单化处理；

1. Sub Test()
   
2.     Dim shSource As Worksheet
   
3.     Dim strFileType As String, strBasicPath As String
   
4.     Dim strFileName() As String, strFile As String
   
5.     Dim lngID As Long
   
6.     Dim wbTemp As Workbook, strAddress As String, shName As String
   
7.     Dim arr As Variant, lngRow As Long, lngIndex As Long
   
8.    
   
9.     '读取目录下所有需要统计的文件名称，存入数组strFileName
   
10.     strBasicPath = ThisWorkbook.Path & ""
    
11.     strFileType = "日报表_*.xlsx"
    
12.     strFile = Dir(strBasicPath & strFileType)
    
13. 
    
14.     Do While Len(strFile)
    
15.         lngID = lngID + 1
    
16.         ReDim Preserve strFileName(1 To lngID)
    
17.         strFileName(lngID) = strBasicPath & strFile
    
18.         strFile = Dir
    
19.         DoEvents
    
20.     Loop
    
21. 
    
22.     '逐个文件读取
    
23.     strAddress = "A6:C22"
    
24.     shName = "数据业务"
    
25.     Set shSource = Sheets("Sheet1")
    
26.     shSource.Range("A4:D" & Rows.Count).ClearContents
    
27.     lngIndex = 4
    
28.    
    
29.     For lngID = LBound(strFileName) To UBound(strFileName)
    
30.         strFile = strFileName(lngID)
    
31.         Set wbTemp = GetObject(strFile)
    
32.         arr = wbTemp.Sheets(shName).Range(strAddress)
    
33.         wbTemp.Close False
    
34.         strFile = Split(Split(strFile, "_")(1), ".")(0)
    
35.         
    
36.         For lngRow = LBound(arr) To UBound(arr)
    
37.             If arr(lngRow, 1) = "枣" Then
    
38.                 shSource.Range("A" & lngIndex).Resize(1, 3) = Application.WorksheetFunction.Index(arr, lngRow)
    
39.                 shSource.Range("D" & lngIndex) = strFile
    
40.                 lngIndex = lngIndex + 1
    
41.             End If
    
42.         Next
    
43.     Next
    
44.         
    
45.     Set wbTemp = Nothing
    
46. 
    
47. End Sub

复制代码

LMY123

多薄单表合并