将每个表格的列提取出来按照顺序排列

Austinwang

各位老师，麻烦大家编一个宏，将每个表格中A列和B列数据提取出来，然后按照顺序排列到排序表中的A列和B列中，期望结果见排序表，谢谢各位老师。

Austinwang

对不起，刚才忘了加附件了，附件如下

lsc900707

Austinwang 发表于 2018-7-6 11:16
对不起，刚才忘了加附件了，附件如下

1. Sub gj23w98()
   
2.     Dim brr(1 To 10000, 1 To 2)
   
3.     For Each sht In Sheets
   
4.         If sht.Name <> ActiveSheet.Name Then
   
5.             arr = sht.[a1].CurrentRegion
   
6.             For i = 2 To UBound(arr)
   
7.                 m = m + 1
   
8.                 For j = 1 To 2
   
9.                     brr(m, j) = arr(i, j)
   
10.                 Next
    
11.             Next
    
12.         End If
    
13.     Next
    
14.     If m Then
    
15.         [a1].CurrentRegion.Offset(1).ClearContents
    
16.         [a2].Resize(m, 2) = brr
    
17.         Range("a2:b" & Rows.Count).Sort [a2], 1
    
18.     End If
    
19. End Sub

复制代码

lsc900707

Austinwang 发表于 2018-7-6 11:16
对不起，刚才忘了加附件了，附件如下

参考附件：