VBA三个工作表汇总出错如何改 用数组不要用find

laoau138

VBA三个工作表汇总出错如何改  用数组不要用find

grf1973

改错后结果输出在A列，不用find用数组结果输出在B列。

1. Sub 用数组合并()
   
2.     Dim i%, Row%, Row1%, n%, arr(), jls&, brr, tj
   
3.     Dim Sht As Worksheet
   
4.     For Each Sht In Sheets
   
5.         If Sht.Name <> "汇总" Then
   
6.             Row = Sht.[a65536].End(xlUp).Row
   
7.             jls = jls + Row
   
8.             brr = Sht.Range("a1:a" & Row)
   
9.             ReDim Preserve arr(1 To jls)
   
10.             tj = Sht.Range("b2")
    
11.             For i = 3 To UBound(brr)
    
12.                 If brr(i, 1) = tj Then
    
13.                     n = n + 1
    
14.                     arr(n) = brr(i, 1)
    
15.                 End If
    
16.             Next
    
17.         End If
    
18.     Next Sht
    
19.     Sheets("汇总").Activate
    
20.     Range("b1:b" & n) = Application.Transpose(arr)
    
21. End Sub
    

复制代码

laoau138

grf1973 发表于 2016-11-8 11:03
改错后结果输出在A列，不用find用数组结果输出在B列。

果然是高手