求高手告知下为什么，会空一个

无穷大

我在sheet2，中写了一个1，sheet3中写了一个2，sheet4 5  sheet5 中 5执行下面代码后出现这样的情况（1234）不是连续的空了一行

1. 
   
2. 
   
3. Private Sub CommandButton1_Click()
   
4. 
   
5. Range("A3:A1000").ClearContents
   
6. Dim i As Long, Myr&, Arr
   
7. Dim d, k, t, Sht As Worksheet
   
8. Set d = CreateObject("Scripting.Dictionary")
   
9. For Each Sht In Sheets
   
10.     If Sht.Name <> "xx1a" Then
    
11.         Myr = Sht.[a65536].End(xlUp).Row
    
12.         Arr = Sht.Range("a2:a2000" & Myr)
    
13.         For i = 1 To UBound(Arr)
    
14.             d(Arr(i, 1)) = ""
    
15.         Next
    
16.     End If
    
17. Next
    
18. k = d.keys
    
19. t = d.items
    
20. Sheet1.[a3].Resize(d.Count, 1) = Application.Transpose(k)
    
21. Set d = Nothing
    
22. 
    
23. End Sub
    

复制代码

清风竹-

1. Private Sub CommandButton1_Click()
   
2. Range("A3:A1000").ClearContents
   
3. Dim i As Long, Myr&, Arr
   
4. Dim d, k, t, Sht As Worksheet
   
5. Set d = CreateObject("Scripting.Dictionary")
   
6. For Each Sht In Sheets
   
7.     If Sht.Name <> "xx1a" Then
   
8.         Myr = Sht.[a65536].End(xlUp).Row
   
9.         Arr = Sht.Range("a2:a" & Myr)
   
10.         For i = 1 To UBound(Arr)
    
11.            If Arr(i, 1) <> "" Then d(Arr(i, 1)) = ""
    
12.         Next
    
13.     End If
    
14. Next
    
15. k = d.keys
    
16. t = d.items
    
17. Sheet1.[a3].Resize(d.Count, 1) = Application.Transpose(k)
    
18. Set d = Nothing
    
19. End Sub
    

复制代码

清风竹-

产生空格原因是这句：Arr = Sht.Range("a2:a2000" & Myr)   
  改为：Arr = Sht.Range("a2:a" & Myr)