cách tìm những số còn thiếu trong danh sách (6 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.