deleteall3008
Thành viên mới

- Tham gia
- 14/11/12
- Bài viết
- 14
- Được thích
- 1
Có cách đó bạn, bạn xem file nhé, không hiểu thì hỏi nếu như bài tớ làm đúng ý
Tôi thì bị đầy tin nhắn rác: Sim đẹp giống 6 số cuối của bạn, liên hệ "chung cư ma, lầu mút chỉ, sẽ giao sim tận nơi..." đọc riết phát ghét.
Tôi thì bị đầy tin nhắn rác: Sim đẹp giống 6 số cuối của bạn, liên hệ "chung cư ma, lầu mút chỉ, sẽ giao sim tận nơi..." đọc riết phát ghét.
Lão này muốn "số đẹp" chăng?
Tôi thì bị đầy tin nhắn rác: Sim đẹp giống 6 số cuối của bạn, liên hệ "chung cư ma, lầu mút chỉ, sẽ giao sim tận nơi..." đọc riết phát ghét.
Lão này muốn "số đẹp" chăng?
Tôi thì bị đầy tin nhắn rác: Sim đẹp giống 6 số cuối của bạn, liên hệ "chung cư ma, lầu mút chỉ, sẽ giao sim tận nơi..." đọc riết phát ghét.
Lão này muốn "số đẹp" chăng?
Cách đó mình biết rồi. Nhưng với hàng ngàn số nó ko hiển thị theo thứ tự mình ví dụ mà hiển thị theo thứ tự đầu số như 0902,0903,0904,0936,0938... nên lọc theo cách đó rất lâu và tốn thời gian.Đúng SIM RÁC nhắn Tin nhắn RÁC đáng sợ, đáng sợ
Bạn muốn list thế nào? Làm như bạn nguyencanh160890 rồi sort theo cột 6 số là được kết quả như bạn muốn đó
Cách đó mình biết rồi. Nhưng với hàng ngàn số nó ko hiển thị theo thứ tự mình ví dụ mà hiển thị theo thứ tự đầu số như 0902,0903,0904,0936,0938... nên lọc theo cách đó rất lâu và tốn thời gian.
Chia làm 2 cột phụ, 1 cột là đầu số, 1 cột là số đuôi, sau đó sort theo thứ tự 2 cột này là được.
Nhưng làm vậy với cả hàng nghìn số thì sao ạ??? em cũng dùng cách đó có vẻ không khả thi lắm
Vậy theo bạn nên dùng cách nào? hàng ngàn số thì cũng làm được tuốt, tại sao không khả thi.
Chia làm 2 cột phụ, 1 cột là đầu số, 1 cột là số đuôi, sau đó sort theo thứ tự 2 cột này là được.
Cái này là liệt kê số nào có tổng là 9
(B1) Từ danh sách (DS) danh bạ của bạn (cột 'A' chẳng hạn) , bạn lập ra danh sách 6 số cuối (Ấn vô cột 'C');
B2: Từ DS cột 'C' lập DS duy nhất & ấn vô cột 'E'
B3: Thực hiện việc tìm kiếm các số ĐT trong cột 'A' có 6 số đuôi trùng với DS của 'E'
Bạn đưa file E2003 lên đi; Sau chục fút sẽ có kết quả tấp lự!Bạn ơi chỉ rõ mình với ko hiểu lắm![]()
Public Sub GPE()
Dim Rng(), Arr(1 To 65000, 1 To 1), Arr2(1 To 65000, 1 To 1), Dic As Object, I As Long, K As Long, Tem As Long, N As Long
Set Dic = CreateObject("Scripting.Dictionary")
With Sheet1
Rng = [A2:A65536].Value
For I = 1 To 65000
If Rng(I, 1) <> "" Then
Tem = Right(Rng(I, 1), 6) * 1
If Not Dic.Exists(Tem) Then
K = K + 1: Arr(K, 1) = Rng(I, 1)
Dic.Add Tem, K
Else
Arr(Dic.Item(Tem), 1) = Arr(Dic.Item(Tem), 1) & " - " & Rng(I, 1)
End If
End If
Next I
For I = 1 To UBound(Arr, 1)
If Len(Arr(I, 1)) > 9 Then
N = N + 1
Arr2(N, 1) = Arr(I, 1)
End If
Next I
[D2:D65000].ClearContents
If N Then [D2].Resize(N).Value = Arr2
End With
Set Dic = Nothing
End Sub
Không khoái lắm nhưng thất nghiệp làm "thí thí" bằng VBA, có xài được thì xài:
Cell A44429 phải xoá chữ V, cột số sao chèn chữ vào làm gì cho rối?PHP:Public Sub GPE() Dim Rng(), Arr(1 To 65000, 1 To 1), Arr2(1 To 65000, 1 To 1), Dic As Object, I As Long, K As Long, Tem As Long, N As Long Set Dic = CreateObject("Scripting.Dictionary") With Sheet1 Rng = [A2:A65536].Value For I = 1 To 65000 If Rng(I, 1) <> "" Then Tem = Right(Rng(I, 1), 6) * 1 If Not Dic.Exists(Tem) Then K = K + 1: Arr(K, 1) = Rng(I, 1) Dic.Add Tem, K Else Arr(Dic.Item(Tem), 1) = Arr(Dic.Item(Tem), 1) & " - " & Rng(I, 1) End If End If Next I For I = 1 To UBound(Arr, 1) If Len(Arr(I, 1)) > 9 Then N = N + 1 Arr2(N, 1) = Arr(I, 1) End If Next I [D2:D65000].ClearContents If N Then [D2].Resize(N).Value = Arr2 End With Set Dic = Nothing End Sub
Thầy hỏi vậy em chịu chết luôn........![]()