cách tìm những số còn thiếu trong danh sách (1 người xem)

[phongtn79]

Các Bác ơi có bác nào biết cách tìm ra những số còn thiếu trong một cột không ? VD tôi có ô A1 được đánh số thứ tự từ 0001 cho đến 9999. nhưng trong dãy số đó có một số ,số thứ tự đã bị xóa . Xin các bác làm ơn chỉ dùm tôi xem có cách nào
kiểm tra xem .Những số nào không tồn tại trong dãy số đó.
Chân Thành cảm ơn các bác rất nhiều

 

[ndu96081631]

Các Bác ơi có bác nào biết cách tìm ra những số còn thiếu trong một cột không ? VD tôi có ô A1 được đánh số thứ tự từ 0001 cho đến 9999. nhưng trong dãy số đó có một số ,số thứ tự đã bị xóa . Xin các bác làm ơn chỉ dùm tôi xem có cách nào
kiểm tra xem .Những số nào không tồn tại trong dãy số đó.
Chân Thành cảm ơn các bác rất nhiều

Đương nhiên là được nếu biết trước quy luật đánh STT
Có thật STT của bạn thuộc dạng số tự nhiên liên tục nhau không? Tốt nhất bạn đưa file ví dụ lên đây (mất công làm xong lại thay đổi ý khác)

 

[salam]

Các Bác ơi có bác nào biết cách tìm ra những số còn thiếu trong một cột không ? VD tôi có ô A1 được đánh số thứ tự từ 0001 cho đến 9999. nhưng trong dãy số đó có một số ,số thứ tự đã bị xóa . Xin các bác làm ơn chỉ dùm tôi xem có cách nào
kiểm tra xem .Những số nào không tồn tại trong dãy số đó.
Chân Thành cảm ơn các bác rất nhiều

Bạn xem trong file nhé.

 

[ChanhTQ@]

Tham khảo thêm 1 cách rùa nữa nha

Option Explicit
Sub MaxNum()
 Dim jJ As Long, Rng As Range, sRng As Range
 
 Set Rng = Range([A1], [a65500].End(xlUp))
 For jJ = 1 To WorksheetFunction.Max(Rng)
   Set sRng = Rng.Find(jJ, , xlFormulas, xlWhole)
   If sRng Is Nothing Then [c65500].End(xlUp).Offset(1).Value = jJ
 Next jJ
End Sub

 

[onglao_danhca]

Các Bác ơi có bác nào biết cách tìm ra những số còn thiếu trong một cột không ? VD tôi có ô A1 được đánh số thứ tự từ 0001 cho đến 9999. nhưng trong dãy số đó có một số ,số thứ tự đã bị xóa . Xin các bác làm ơn chỉ dùm tôi xem có cách nào
kiểm tra xem .Những số nào không tồn tại trong dãy số đó.
Chân Thành cảm ơn các bác rất nhiều

Tôi hay dùng cách "nhà quê" như sau vì không biết gì về VB hay VBA cả:
Dùng 1 cột phụ, ví dụ là cột D.
D1 = A2-A1.
D2= A3-A2
..........
Sau đó dùng sumif xem có bao nhiêu giá trị khác 1 trong cột D

 

[BNTT]

Tôi hay dùng cách "nhà quê" như sau vì không biết gì về VB hay VBA cả:
Dùng 1 cột phụ, ví dụ là cột D.
D1 = A2-A1.
D2= A3-A2
..........
Sau đó dùng sumif xem có bao nhiêu giá trị khác 1 trong cột D

Cách của bạn chỉ cho biết thiếu bao nhiêu số, chứ không cho biết những số thiếu đó là số nào.

 

[SA_DQ]

Chẳng may cột số này không theo trật tự nào thì không thể đặng rồi (?!)

tôi hay dùng cách "nhà quê" như sau vì không biết gì về vb hay vba cả:
Dùng 1 cột phụ, ví dụ là cột d.
D1 = a2-a1.
D2= a3-a2
..........
Sau đó dùng sumif xem có bao nhiêu giá trị khác 1 trong cột d

 

[nhtruongtlo]

Tôi hay dùng cách "nhà quê" như sau vì không biết gì về VB hay VBA cả:
Dùng 1 cột phụ, ví dụ là cột D.
D1 = A2-A1.
D2= A3-A2
..........
Sau đó dùng sumif xem có bao nhiêu giá trị khác 1 trong cột D

Tôi cũng theo chủ nghĩa thô. Tôi dùng thêm cột phụ B và tại ô B2 điền công thức
=IF(A2-A1<0,"SAP XEP SAI",IF(A2-A1=1,"",IF(A2-A1=2,"THIEU STT "&A1+1,"THIEU TU STT "&A1+1&" DEN STT "&A2-1)))
Kéo xuống đến hết

 

[ngantrinhthi]

thân gửi Salam!

Mình muốn rõ hơn về cách làm của bạn được không? mình có một dãy số các hoá đơn, lẽ ra nó phải liên tiếp nhau, nhưng mình bỏ lỡ không nhập rất nhiều Hoá đơn, giờ mình muốn tìm các hoá đơn thiếu đó. bạn giúp mình với (mình kém về excel quá! cảm ơn bạn!

 

[vutienhp]

Cảm ơn bạn! Cách làm của bạn rất hay.

 

[nguyentrananh]

cảm ơn bác Salam nhiều, em ko hieu DKloc la gi?, em copy sang sheet của em làm lại ko dùng được. hix

 

[monoru]

Bạn xem trong file nhé.

bạn có thể giải thích rõ cho mình nghe dc ko dza
dkloc là gì vậy , mình làm lại ko được

 

[maikhoi]

cảm ơn bác Salam nhiều, em ko hieu DKloc la gi?, em copy sang sheet của em làm lại ko dùng được. hix

Dùng cách củ chuối này xem!
Cũng hiệu quả không kém

 

[monoru]

Dùng cách củ chuối này xem!
Cũng hiệu quả không kém

cách của bạn ko đúng cái mình cần ,bạn salam mất tiêu ,cách bạn là đúng tiêu chuẩn lun

 

[Cuc_Da]

Bạn sử dụng cột phụ ở vùng dữ liệu bị thiếu, sau đó bạn sử dụng hàm tìm kiếm mà đối tượng tìm kiếm là đối tượng ở vùng dữ liệu đầy đủ, còn vùng tìm kiếm là vùng dữ liệu bị thiếu. Sau khi copy lệnh lần lượt ở kết quả trả về mà hiện #NA thì đó là đối tượng bị thiếu.

 

[be_09]

Sort thứ tự cần tìm số thiếu, tạo cột phụ rồi dùng công thức:

=IF(A2-A1>1,A1+1,"")&" - "&IF(A2-A1>2,A2-1,"")

Giả sử A1=3, A2=9

Ta có kết quả: 4 - 8

 

[tathituyet100688]

có cách này ko cần dùng hàm gì cả chỉ dùng những thao tác trng excel có săn. bạn lấy thêm 1 cột nữa roi kéo stt khác từ đầu đến cuối ( số lượng số pải giống bên dữ liệu của bạn) sau vào conditional formatting - chọn highligh cellsrules- chọn duplicate value.noseiện ra cho ban những ô số nào bị thiếu. đây là cách tìm những số có giá trị giống nhau

 

[quoc nhat]

Option Explicit
Sub MaxNum()
 Dim jJ As Long, Rng As Range, sRng As Range
 
 Set Rng = Range([A1], [a65500].End(xlUp))
 For jJ = 1 To WorksheetFunction.Max(Rng)
   Set sRng = Rng.Find(jJ, , xlFormulas, xlWhole)
   If sRng Is Nothing Then [c65500].End(xlUp).Offset(1).Value = jJ
 Next jJ
End Sub

Em thay code của anh bằng code này để kiểm tra việc nhập số thứ tự bằng Form sau đó sẽ cho Sort lại theo số TT

Sub Button1_Click() 
Dim jJ As Long, Rng As Range, sRng As Range
Set Rng = Range([A1], [a65500].End(xlUp)) 
For jJ = 1 To WorksheetFunction.Max(Rng)   
Set sRng = Rng.Find(jJ, , xlFormulas, xlWhole)  
 Next 
  If sRng Is Nothing Then Range("b1").Value = jJ   


   Range("b1").Value = WorksheetFunction.Max(Rng) + 1
End Sub

nhưng không biết dòng số 3 từ dưới lên( đoạn bỏ trống) phải thêm như thế nào để kiểm tra nếu số thứ tự không bị mất số nào thì sẽ lấy số STT lớn nhất đã có + 1

giúp em với mọi người ơi!

 

[quoc nhat]

Em thay code của anh bằng code này để kiểm tra việc nhập số thứ tự bằng Form sau đó sẽ cho Sort lại theo số TT

Sub Button1_Click() 
Dim jJ As Long, Rng As Range, sRng As Range
Set Rng = Range([A1], [a65500].End(xlUp)) 
For jJ = 1 To WorksheetFunction.Max(Rng)   
Set sRng = Rng.Find(jJ, , xlFormulas, xlWhole)  
 Next 
  If sRng Is Nothing Then Range("b1").Value = jJ   


   Range("b1").Value = WorksheetFunction.Max(Rng) + 1
End Sub

nhưng không biết dòng số 3 từ dưới lên( đoạn bỏ trống) phải thêm như thế nào để kiểm tra nếu số thứ tự không bị mất số nào thì sẽ lấy số STT lớn nhất đã có + 1

giúp em với mọi người ơi!

Hay quá sau một hồi mò mẫn em đã làm được rồi
Cảm ơn mọi người

 

[tuthanhnv]

Ví dụ cột A1:A100 từ 1-100, trong đó có các số bị thiếu
Tạo cột phụ B1:B100 kéo từ 1-100, rồi so sanh là biết số nào thiếu liền, khỏi dùng nhiều công thức phức tạp.

 

[notsad]

=if (A1=A2-1;"";"thieu")
.

 

[be_09]

=if (A1=A2-1;"";"thieu")
.

Bạn kiểm tra chưa mà đưa lên vậy, A1 là tiêu đề thì dùng vầy mới đúng.

=IF(A3-A2=1,"","Số thiếu")

Có thể dùng VBA với code sau (Xem File):

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

Giả sử A2:A13 chứa các con số, thì dùng hàm sau (trong File còn hàm thống kê số thiếu trong khoảng):

=SoThieu(A2:A13)

 

[manhthangvtn2]

Mình có 01 file cấp số VB gồm 03 đuôi VB...mình có sử dụng hàm Vlookup để lựa số trong dải cho sẵn nhưng bị hiện tượng trùng số...bạn có giải pháp nào khác để khắc phục được k?? người lấy số chỉ cần đưa ngày lấy số (cột B) và chọn đuôi VB (cột F) thì ra kết quả cột G...và kết quả số thứ tự không bị trùng. Bạn có thể viết hàm được không ?? mình xin hậu tạ! Tks!

 

[be_09]

Mình có 01 file cấp số VB gồm 03 đuôi VB...mình có sử dụng hàm Vlookup để lựa số trong dải cho sẵn nhưng bị hiện tượng trùng số...bạn có giải pháp nào khác để khắc phục được k?? người lấy số chỉ cần đưa ngày lấy số (cột B) và chọn đuôi VB (cột F) thì ra kết quả cột G...và kết quả số thứ tự không bị trùng. Bạn có thể viết hàm được không ?? mình xin hậu tạ! Tks!

Theo dõi công văn thì bạn tham khảo File bài 130 của Link sau, nếu không đúng ý thì nên mở Topic mới với tiêu đề "Tự động gán số công văn theo từng loại" (liệt kê các loại ra), chứ không nên chen ngang bài viết không cùng chủ đề là vi phạm nội quy.
https://www.giaiphapexcel.com/diendan/threads/quản-lý-công-văn-đi-và-đến.10068/page-7

 

[vuvanthe2000]

Gửi các bậc tiền bối.
Mong các bậc tiền bối giúp em vụ này ạ.
Em có 5000 số serial sản xuất. ( số có quy luật. Chia làm 25 lô sản xuất khác nhau. mỗi lô 200 sản phẩm)
Tuy nhiên sau khi sản xuất thì chỉ đếm được 4998. Tức là thiếu mất 2 số serial.
Mong các cụ giúp em tìm ra 2 số serial nhanh nhất có thể.
Em xin gửi file đính kèm

Em cảm ơn!