生成一个数字列中不存在的随机5位数字

我有一个5位数字的列表。 我需要随机生成一个不在此列表中的5位数字。 我想通过点击一个button或简单地使用一个公式来实现这一点。
例如：如果这是我的列A中的5位数的excel，

11111 11113 11115 

点击一个button，我想生成一个独特的5位数字，这是不是在这一列。 我正在使用此function，但它只与第一个单元匹配。 当我点击我的button，它会给我11110到11116之外的所有数字，除了11111.我需要它来检查完整的列，并返回给我一个独特的值。

 Private Sub CommandButton1_Click() Dim rw As Long For rw = 1 To 1 Cells(rw, 2) = Int((11116 - 11110 + 1) * Rnd + 11110) Do Until Cells(rw, 2).Value <> Cells(rw, 1).Value Cells(rw, 2) = Int((11116 - 11110 + 1) * Rnd + 11110) Loop Next rw End Sub 

Answer 1

尝试这个

 Dim rw As Long For rw = 1 To 1 Rnd_Num = Int((11116 - 11110 + 1) * Rnd + 11110) Do Until Columns(1).Find(Rnd_Num) Is Nothing Rnd_Num = Int((11116 - 11110 + 1) * Rnd + 11110) Loop Cells(rw, 2) = Rnd_Num Next rw 

Answer 2

 Dim rw As Long Dim start_, end_ As Integer start = 11110 end_ = 11116 For rw = 1 To 1 random_ = Int((end_ - start + 1) * Rnd + start) Do Until Columns(1).Find(random_) Is Nothing random_ = Int((end_ - start + 1) * Rnd + start) Loop Cells(rw, 2) = random_ Next rw