Bảng ban đầu mình cũng muốn lọc theo kiểu như thế này.
Option Explicit
[B]Sub SoDeDay()[/B]
Dim Rng As Range, Clls As Range
Dim iJ As Byte, iW As Byte
Set Rng = Range("C10:F20"): iJ = Rng.Cells.Count + 7
Range("C27:AC37").ClearContents
For Each Clls In Rng
If Clls <> "" Then
iW = Clls Mod 10
Select Case (Clls \ 10) Mod 10
Case 0
Cells(27, Cells(27, iJ).End(xlToLeft).Column + 1) = iW
Case 1
28
Case 2
29
Case 3
30
Case 4
31
Case 5
32
Case 6
33
Case 7
34
Case 8
Cells(35, Cells(35, iJ).End(xlToLeft).Column + 1) = iW
Case 9
36
End Select
End If
Next Clls
[B]End Sub[/B]
Ra là lọc số loto chắc là phải dùng VBA rồi bạn sử dụng code của Bác SA_DQ nhé. Nhớ là phải thêm đủ dòng lệnh cho các select case.Salam ơi, mình làm lại bảng ví dụ cụ thể hơn để bạn có thể dễ dàng theo dõi rồi. Bảng ban đầu mình cũng muốn lọc theo kiểu như thế này. Cám ơn bạn đã nhiệt tình giúp đỡ.
Bạn dùng hàm =Right(Ai; 2)Cách làm trước quả là phức tạp quá. Nhờ hai bạn chỉ cho mình cách dùng hàm excel nào đó để lọc hai số đuôi của giải ra thôi.
Thanks (check trong file dinh kem nhe)