Bagaimana cara memeriksa apakah saya telah memasukkan semua angka yang diperlukan di excel?

0

Saya telah memasukkan angka 1-1074 dalam lembar excel dan saya ingin memeriksa apakah saya melewatkan nomor apa pun dalam rentang itu. Bagaimana saya bisa memeriksanya?

Kanita
sumber
Apakah Anda ingin tahu apakah ada yang hilang, atau nomor mana yang hilang. Menemukan jika ada yang hilang itu mudah. Mengembalikan daftar nomor yang hilang sedikit lebih sulit.
Scott Craner
Saya menganggap ini berurutan. Apakah Anda baru saja melakukan A2 = A1 + 1, lalu seret ke bawah?
spikey_richie
Atau ketik 1 di A1 dan CTRL -tarik ke bawah
cybernetic.nomad

Jawaban:

0

Makro ini harus berfungsi bahkan jika entri tidak diurutkan:

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

enter image description here

Gary's Student
sumber
0

Jika Anda hanya membutuhkan jawaban Ya / Tidak, maka rumus ini akan mengembalikan BENAR / SALAH untuk Anda:

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