如何突出显示和列出字母数字序列中的缺失值

Question

我使用的是 Excel 2010。我有一列包含四位数字序列的数据。这些序列由多个字母组成并迭代，后跟一个从 100 到 999 的数字。所以 A100、A101、A102……A999，然后是 B100、B101……一直到 Z999。这些序列有 24,000 个（即行）。

我首先尝试了以下 VBA 脚本：

Function MissingNumbers(Rng As Range) As String
Dim X As Long, MaxNum As Long
MaxNum = WorksheetFunction.Max(Rng)
ReDim Nums(1 To MaxNum)
For X = 1 To MaxNum
   If Rng.Find(X, LookAt:=xlWhole) Is Nothing Then
      MissingNumbers = MissingNumbers & ", " & X
   End If
  Next
  MissingNumbers = Mid(MissingNumbers, 3)
End Function

...但是我在使用=MissingNumbers(A1:A23400) 调用它时遇到了错误，我猜这是因为该函数无法解析序列开头的字母。

我的问题：我可以使用什么公式突出显示并单独列出第一列中的缺失值？

为额外说明，范围内的缺失值

C996
C998
C999
D101

……应该是……

C996
*C997*
C998
C999
*D100*
D101

提前致谢。

Answer 1

也许有更快的方法来做到这一点......但这是在小样本上测试并产生结果。

Function MissingSequence(Rng As Range) As String

Dim iCnt As Integer
For iCnt = 65 To 90 'ASCI characters for alphabet A-Z

    Dim iNum As Integer
    For iNum = 100 To 999

        Dim sCheck As String
        sCheck = Chr(iCnt) & iNum            

        If Rng.Find(sCheck, lookat:=xlWhole) Is Nothing Then

            Dim sMissingNumbers As String
            sMissingNumbers = sMissingNumbers & "," & sCheck

        End If

    Next

Next

  MissingSequence = Mid(sMissingNumbers, 2)

End Function