为什么不可以更新

好多好多栁髅怀

代码哪里有问题，我写的不对吗？为什么不可以更新呢

清风竹-

1. Sub ss()
   
2.     Dim ws1 As Worksheet, ws2 As Worksheet, ws3 As Worksheet
   
3.     Set ws1 = Worksheets("Sheet1")
   
4.     Set ws2 = Worksheets("Sheet2")
   
5.     Set ws3 = Worksheets("Sheet3")
   
6.     Dim Row1 As Integer, Row2 As Integer
   
7.     Row1 = ws1.Cells(Rows.count, 1).End(3).Row
   
8.     Row2 = ws2.Cells(Rows.count, 1).End(3).Row
   
9.     arr1 = ws1.Range("a1:c" & Row1)
   
10.     arr2 = ws2.Range("a2:c" & Row2)
    
11.     ReDim brr(1 To Row1 + Row2, 1 To 2)
    
12.     For m = 1 To UBound(arr1)
    
13.         n = n + 1
    
14.         brr(n, 1) = arr1(m, 2)
    
15.         brr(n, 2) = arr1(m, 3)
    
16.     Next
    
17.     For m = 1 To UBound(arr2)
    
18.         n = n + 1
    
19.         brr(n, 1) = arr2(m, 2)
    
20.         brr(n, 2) = arr2(m, 3)
    
21.     Next
    
22.     ws3.Range("A1").Resize(UBound(brr), 2) = brr
    
23. End Sub
    
24. 
    
25. 
    

复制代码