怎么提取多个工作表的内容汇总到一张新工作表

lqhnhm

一个店铺对应好多退货的商品，请高手指点。

microyip

找找历遍文件的代码，逐个文件打开，读取指定区域单元格数值，复制粘贴

lsc900707

1. Sub gj23w98()
   
2.     Dim brr(1 To 10000, 1 To 15)
   
3.     For Each sht In Sheets
   
4.         If sht.Name <> ActiveSheet.Name Then
   
5.             With sht
   
6.                 arr = .UsedRange
   
7.                 For i = 7 To UBound(arr) - 3
   
8.                     If arr(i, 1) <> "" Then
   
9.                         m = m + 1
   
10.                         brr(m, 1) = .[b2]
    
11.                         brr(m, 2) = .[b3]
    
12.                         brr(m, 3) = .[b4]
    
13.                         brr(m, 4) = .[g2]
    
14.                         brr(m, 5) = .[g3]
    
15.                         brr(m, 6) = .[g4]
    
16.                         For j = 7 To 15
    
17.                             brr(m, j) = arr(i, j - 6)
    
18.                         Next
    
19.                     End If
    
20.                 Next
    
21.             End With
    
22.         End If
    
23.     Next
    
24.     If m > 0 Then
    
25.         [a1].CurrentRegion.Offset(1).Clear
    
26.         [a2].Resize(m, 15) = brr
    
27.         [a2].Resize(m, 15).Borders.LineStyle = xlContinuous
    
28.     End If
    
29. End Sub

复制代码

lqhnhm

谢谢，完美解决了我的烦恼，非常感谢。

jjmysjg

留下记号，谢谢