[已解决]如何找如何找回漏掉的数字

leehom001

例如A栏有一段顺序的数字：

3578112
3578113
3578114
3578116
3578117
3578120
3578121
3578122
3578123
3578124
3578129
3578130
3578131
3578132
3578133
3578134
3578135


遗漏的数字有:

3578115
3578118
3578119
3578125
3578126
3578127
3578128


我想把它放在B栏,那如何写VBA呢?谢谢大家!

最佳答案

月排行榜 / 总排行榜

grf1973

2015-10-13 10:04

1. Sub tt()
   
2.     arr = Range("a2:a" & [a65536].End(3).Row)
   
3.     xmax = Application.WorksheetFunction.Max(arr)
   
4.     xmin = Application.WorksheetFunction.Min(arr)
   
5.     ReDim xrr(xmin To xmax)
   
6.     ReDim brr(xmin To xmax, 1 To 1)
   
7.     For i = 1 To UBound(arr)
   
8.         xrr(arr(i, 1)) = 1
   
9.     Next
   
10.     For i = xmin To xmax
    
11.         If xrr(i) <> 1 Then
    
12.             n = n + 1
    
13.             brr(xmin - 1 + n, 1) = i
    
14.         End If
    
15.     Next
    
16.     If n > 0 Then [b2].Resize(n, 1) = brr
    
17. End Sub

复制代码

跳转到最佳答案楼层

金樽空对月

效果如下图所示：

金樽空对月

详见附件，内详。

金樽空对月

看一下是不是你要的效果？

grf1973

1. Sub tt()
   
2.     arr = Range("a2:a" & [a65536].End(3).Row)
   
3.     xmax = Application.WorksheetFunction.Max(arr)
   
4.     xmin = Application.WorksheetFunction.Min(arr)
   
5.     ReDim xrr(xmin To xmax)
   
6.     ReDim brr(xmin To xmax, 1 To 1)
   
7.     For i = 1 To UBound(arr)
   
8.         xrr(arr(i, 1)) = 1
   
9.     Next
   
10.     For i = xmin To xmax
    
11.         If xrr(i) <> 1 Then
    
12.             n = n + 1
    
13.             brr(xmin - 1 + n, 1) = i
    
14.         End If
    
15.     Next
    
16.     If n > 0 Then [b2].Resize(n, 1) = brr
    
17. End Sub

复制代码

grf1973

请看附件。

leehom001

金樽空对月 发表于 2015-10-12 23:45
看一下是不是你要的效果？

好厉害啊,怎么可以写成这样,代码看都看不明白,可以解释一下吗?VBA真的太难了。

leehom001

grf1973 发表于 2015-10-13 10:04

同谢啊,为什么和楼上写法不同但效果却一样,真神奇

金樽空对月

leehom001 发表于 2015-10-13 12:50
同谢啊,为什么和楼上写法不同但效果却一样,真神奇

思路不一样，方法也是不一样的。

金樽空对月

leehom001 发表于 2015-10-13 12:50
同谢啊,为什么和楼上写法不同但效果却一样,真神奇

楼上的思路是找到一个，提出来一个，而楼下的则是全部找到后，一起提出来，相对来说楼下的思路要更成熟些，而且运行速度要快。