合并多表问题求助

simic1989

请问，为啥我做得这个合并多表到sheet1中。
我是从2表开始往后循环，为啥合并到sheet1中的时候是从最后一个表开始往前合并，并且sheet2没合并进来？
请老师解答

蓝桥玄霜

1. Sub text()
   
2.     Dim i&, j&, k As Integer
   
3.     Sheet1.Activate
   
4.     Cells.ClearContents
   
5.     Sheet2.Range("a1:f1").Copy Sheet1.Range("a1") '复制表头
   
6.     For j = 2 To Sheets.Count  '合并
   
7.         i = Sheets(j).Range("a65536").End(xlUp).Row
   
8.         k = Sheet1.Range("a65536").End(xlUp).Row + 1
   
9.         Sheets(j).Range("a2:f" & i).Copy Sheet1.Range("a" & k)
   
10.     Next
    
11. End Sub
    
12. 
    

复制代码

jnsxmt

Sheets(j).Range("a2:f" & i).Copy Sheet1.Range("a" & k + 1)后加一句
         k = k + i - 1

lsc900707

1. Sub gj23w98()
   
2.     Dim brr(1 To 10000, 1 To 6)
   
3.     Cells.ClearContents
   
4.     For Each sht In Sheets
   
5.         If sht.Name <> "数据" Then
   
6.             With sht
   
7.                 arr = .[a1].CurrentRegion
   
8.                 crr = .[a1].Resize(1, UBound(arr, 2))
   
9.             End With
   
10.             For i = 2 To UBound(arr)
    
11.                 m = m + 1
    
12.                 For j = 1 To UBound(arr, 2)
    
13.                     brr(m, j) = arr(i, j)
    
14.                 Next
    
15.             Next
    
16.         End If
    
17.     Next
    
18.     [a1].Resize(1, UBound(arr, 2)) = crr
    
19.     [a2].Resize(m, UBound(brr, 2)) = brr
    
20. End Sub
    

复制代码

lsc900707

参考附件：

bai0379

能不能只合并特定日期的数据？

simic1989

bai0379 发表于 2018-8-17 09:55
能不能只合并特定日期的数据？

修改了一下，只合并每个表的特定日