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?


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


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
Dengan menggunakan situs kami, Anda mengakui telah membaca dan memahami Kebijakan Cookie dan Kebijakan Privasi kami.
Licensed under cc by-sa 3.0 with attribution required.