Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A1]) Is Nothing Then
With Sheets("Sheet2")
If .[B1].Value = "" Then
.[B1].Value = Target.Value
Else
.[B65500].End(xlUp).Offset(1) = Target.Value
End If
End With
End If
End Sub
Option Explicit
Sub Tim8SoTrungTrong9So()
Dim Rng As Range, sRng As Range, MyAdd As String
Dim Color_ As Byte
Set Rng = Range([A1], [A65500].End(xlUp))
Set sRng = Rng.Find(23456789, , xlFormulas, xlPart)
If Not sRng Is Nothing Then
MyAdd = sRng.Address
Do
Color_ = Color_ + 1
With sRng.Interior
If .ColorIndex < 33 Then
.ColorIndex = 33 + Color_
End If
End With
If Color_ > 5 Then Color_ = 1
Set sRng = Rng.FindNext(sRng)
Loop While Not sRng Is Nothing And sRng.Address <> MyAdd
End If
End Sub
Bạn xem thử file này xem được không. Nhập dạng số vào và xem kết quả.
Sao bạn Huuthang không dùng công thức này nhỉ:
=LEN(SUBSTITUTE(B3,RIGHT(B3,4),""))=MOD(LEN(B3),4)Bạn xem lại các bài dưới. Ở đây các quy luật của dãy số là biến đổi vì vậy tôi mới có ô D1 để nhập quy luật của dãy số cần tìm. Chứ không phải chỉ tìm những dãy số có quy luật abcdabcd. Đó chỉ là một ví dụ. Bạn có thể thay đổi quy luật ở ô D1 và xem kết quả.
