Как проверить, вписал ли я все необходимые номера в excel?

Question

Я ввел числа 1-1074 в листе Excel и хочу проверить, пропустил ли я какое-либо число в этом диапазоне. Как я смогу это проверить?

Answer 1

Этот макрос должен работать, даже если записи не отсортированы:

Sub DataCheck()
    Dim A As Range, i As Long, msg As String, r As Range
    msg = ""
    Set A = Range("A:A")

    For i = 1 To 1074
        Set r = A.Find(what:=CStr(i), After:=A(1), lookat:=xlWhole)
        If r Is Nothing Then
            msg = msg & vbCrLf & i
        End If
    Next i

    If msg = "" Then
        MsgBox "nothing missing"
    Else
        MsgBox "These are missing:" & msg
    End If
End Sub

Answer 2

Если вам просто нужен ответ Да / Нет, тогда эта формула должна вернуть TRUE / FALSE для вас:

=SUMPRODUCT(--(COUNTIF(myRange,ROW(INDIRECT("1:1074")))>0))=1074