Kiểm tra sự liên tục của các số trong 1 cột.

[thanhnhanubnd]

Nhờ các bạn xem :
Mình có cột A là cột số, các số này nhập thủ công . Ví dụ : 1,2,3,5,7.
Mình muốn viết 1 code kiểm tra sự liên tục của các số thứ tự.Như ví dụ trên : thì sẽ hiện ra thông báo " Còn thiếu số 4,6"
Thank.

 

[ChanhTQ@]

Bạn chắc chưa rành macro lắm, chứ iêu cầu của bạn đã được đáp ứng từ trước

1. Cho mình hỏi nếu trong cột A ta nhập nhầm ký tự không phải là số, ví dụ 7a chẳng hạn, thì làm sao để không báo lỗi và xem như số 7a này không tồn tại.
2. Có 1 yêu cầu thế này :
ví dụ ta cần kiểm tra sự liên tục từ A2 : a5.
a2 : 2
a3 : 5
a4 : 7
a5 : 9
Mình muốn sau khi kiểm tra hiện ra msgbox :
Từ số " min" đen so "max" còn thiếu ????(count) : số :.....
Theo ví dụ : "Tu so 2 đến số 9 còn thiếu 4 số : 3,4,6,8" Thank

Chỉ cần sửa lại macro gần đây nhất như vầy là được!

Option Explicit
Sub UnSeeNums()
 Dim Dem As Long, Ww As Long, MinNum As Long, MaxNum As Long
 Dim minRng As Range, Rng As Range, tRng As Range
 Dim StrC As String, GPE As String:             Const GN As String = "; "
 
 Set Rng = Range([A2], [A65500].End(xlUp))
 Rng.Offset(, 1).Clear
 MinNum = Application.WorksheetFunction.Min(Rng)
 MaxNum = Application.WorksheetFunction.Max(Rng)
 Set minRng = Rng.Find(what:=MinNum, lookAt:=xlWhole)
 For Ww = MinNum + 1 To MaxNum
   Set tRng = Rng.Find(what:=Ww, LookIn:=xlValues, lookAt:=xlWhole)
   If tRng Is Nothing Then
      StrC = StrC & GN & Ww
      Dem = 1 + Dem
   Else
12      minRng.Offset(, 1) = Mid(StrC, 3)
      GPE = GPE & StrC
      StrC = "":        Set minRng = tRng
   End If
 Next Ww
 StrC = "Tu so " & MinNum & " den so " & MaxNum & " con thieu " & Dem
8 [d2] = StrC & " so, do la: :" & Mid(GPE, 3)
9 ' Msgbox StrC & " so, do la: :" & Mid(GPE, 3),,"GPE.COM"'
End Sub

 

[thanhnhanubnd]

nếu mình ko muốn dán những số thiếu sang cột bên cạnh, mình sửa code thế nao?

 

[ChanhTQ@]

nếu mình ko muốn dán những số thiếu sang cột bên cạnh, mình sửa code thế nao?

Đơn giản ta vô hiệu hóa dòng lệnh mà mình vừa đánh số (12), bằng cách thêm dấu "'" vô đầu dòng lệnh.