初学者的问题，谢谢回答了。

Dim arr(1 To 20) As String 
    Dim i, j As Integer 
    Dim iCount As Integer '空缺个数 
    Dim arrLack(1 To 20) As String 空缺数组 
    arr(1) = "1" 
    arr(2) = "2" 
    arr(3) = "3" 
    arr(4) = "6" '在这个地方人为的产生空缺为：4、5
  For i = 5 To 20 
        arr(i) = Trim(Str(i + 2)) 
  Next '这里完成对整个数组的赋值。
    iCount = 0 
  For i = 1 To 19 '遍历数组中的每一个元素
        If Val(arr(i + 1)) - Val(arr(i)) <> 1 Then
' 如果数组的后一个元素与前一个元素差值不为1，也就是说两个相邻单元的数字不连续。
'如：arr(4)=6,而arr(3)=3,差值为3。则进入查漏部分。
        For j = 1 To Val(arr(i + 1)) - Val(arr(i)) - 1 
'循环范围是相邻数组元素的差值－1。比如6到3有两个差值：6－3－1＝2,在此就循环两次
        iCount = iCount + 1 
        arrLack(iCount) = Trim(Str(Val(arr(i)) + j)) 
        Debug.Print arrLack(iCount) 
      Next 
        End If 
    Next