[已解决]继续向 zjdh 老师求助！

zhycl

表中A列为不连续的一列数字编号从260000到280000（数字类型），想把A列中的空号取出放在B列。请老师支招，谢谢了

最佳答案

月排行榜 / 总排行榜

snrvgbb

2011-11-3 20:23

1. Sub test()
   
2. Dim arr, d, i&, k&
   
3. Set d = CreateObject("scripting.dictionary")
   
4. For i = 260000 To 280000
   
5.     d(i) = ""
   
6. Next
   
7. arr = Range("a1:a" & [a65536].End(3).Row)
   
8. For k = 1 To UBound(arr)
   
9.     If d.exists(arr(k, 1)) Then
   
10.        d.Remove (arr(k, 1))
    
11.     End If
    
12. Next
    
13. Range("b1").Resize(d.Count, 1) = WorksheetFunction.Transpose(d.keys)
    
14. End Sub

复制代码

跳转到最佳答案楼层

snrvgbb

1. Sub test()
   
2. Dim arr, d, i&, k&
   
3. Set d = CreateObject("scripting.dictionary")
   
4. For i = 260000 To 280000
   
5.     d(i) = ""
   
6. Next
   
7. arr = Range("a1:a" & [a65536].End(3).Row)
   
8. For k = 1 To UBound(arr)
   
9.     If d.exists(arr(k, 1)) Then
   
10.        d.Remove (arr(k, 1))
    
11.     End If
    
12. Next
    
13. Range("b1").Resize(d.Count, 1) = WorksheetFunction.Transpose(d.keys)
    
14. End Sub

复制代码

windimi007

回复 snrvgbb 的帖子

学习了，感谢楼主分享！{:3512:}