Bạn thực hiện như sauhoan987 đã viết:1. làm thế nào để nhập được sô 001 mà không phải chuyển sang dang text
Chẳng bao giờ lọc được. Không có số nào 2 chữ số mà không nằm trong khoảng 00>99hoan987 đã viết:2. lọc những số không có trong khoảng (00>99 ) ở dãy số có 2 chữ số
Vậy chỉ là khảo sát giải 7 thôi, phải không?2. lọc những số không có trong khoảng (00>99 ) ở dãy số có 2 chữ số
Lọc các số không có trong dãy số.
Em gửi file này các bác mở ra xem và làm hộ em.
Em cám ơn trước.
Option Explicit
Sub SoChuaCo()
Dim SoDuoi, lRow As Long, Ww As Long
Dim Rng As Range, Clls As Range
Application.ScreenUpdating = False
1' Tạo cột số từ 0-99 tại 'G' bắt đầu từ "G4" '
For Ww = 0 To 99
Cells(4 + Ww, "G") = Ww
Next Ww
lRow = [a65500].End(xlUp).Row
2' Duyệt toàn vùng, căn cứ 2 số đuôi của từng ô để tô màu tại cột "G" _
những số đã xuất hiện:'
For Each Clls In Range([B4], Cells(lRow, "E"))
SoDuoi = Clls.Value Mod 100
[g4].Offset(SoDuoi).Interior.ColorIndex = 39
Next Clls
End Sub