xin anh chị code lọc trùng (bảng 500 ngìn SĐt); em đọc và mãi vẫn không thể viết được đoạn code đó mong anh chị diễn đàn giúp đỡ em với ạh

truonghagpex · 23/12/18

+84981324567	+84905057994	+84908704567	+84978476960	+84978476960	+84908704566	+84978476960
+84933852456	+84982435856	+84982435856	+84982435856	+84962639173	+84962639173
+84982327037	+84962639173		+84908704566			+84908704566
+84943744457	+84978476960	+84978476960	+84962639173	+84978476960	+84908704566	+84982435856
+84967409879	+84982435856	+84982435856	+8498243581	+84982435856	+84982435856	+84982435856

em viết code mà không được
Sub TRUONG()
Dim vdl As Range
Dim i, j, a, b As Integer
On Error Resume Next
Set vdl = Application.InputBox("CHON VUNG DU LIEU BAN CAN SAP XEP", "TRUONG HA - SAP XEP", , , , , , 8)
For a = 1 To vdl.Rows.Select
For b = 1 To vdl.Columns.Select

For i = 1 To vdl.Rows.Select
For j = 1 To vdl.Columns.Select
If (i <> a) or (j <> b) Then 'tránh xét cell trùng voi chính nó
If ActiveCell(i, j).Value = ActiveCell(a, b).Value Then
ActiveCell(i, j).Value = ""
End If
End If
Next j
Next i
Next b
Next a
End Sub

snow25 · 23/12/18

truonghagpex đã viết:
+84981324567

+84905057994

+84908704567

+84978476960

+84978476960

+84908704566

+84978476960

+84933852456

+84982435856

+84982435856

+84982435856

+84962639173

+84962639173

+84982327037

+84962639173

+84908704566

+84908704566

+84943744457

+84978476960

+84978476960

+84962639173

+84978476960

+84908704566

+84982435856

+84967409879

+84982435856

+84982435856

+8498243581

+84982435856

+84982435856

+84982435856

Lọc bằng tay à bạn.

snow25 · 23/12/18

truonghagpex đã viết:
+84981324567

+84905057994

+84908704567

+84978476960

+84978476960

+84908704566

+84978476960

+84933852456

+84982435856

+84982435856

+84982435856

+84962639173

+84962639173

+84982327037

+84962639173

+84908704566

+84908704566

+84943744457

+84978476960

+84978476960

+84962639173

+84978476960

+84908704566

+84982435856

+84967409879

+84982435856

+84982435856

+8498243581

+84982435856

+84982435856

+84982435856

em viết code mà không được
Sub TRUONG()
Dim vdl As Range
Dim i, j, a, b As Integer
On Error Resume Next
Set vdl = Application.InputBox("CHON VUNG DU LIEU BAN CAN SAP XEP", "TRUONG HA - SAP XEP", , , , , , 8)
For a = 1 To vdl.Rows.Select
For b = 1 To vdl.Columns.Select

For i = 1 To vdl.Rows.Select
For j = 1 To vdl.Columns.Select
If (i <> a) or (j <> b) Then 'tránh xét cell trùng voi chính nó
If ActiveCell(i, j).Value = ActiveCell(a, b).Value Then
ActiveCell(i, j).Value = ""
End If
End If
Next j
Next i
Next b
Next a
End Sub

Bạn gửi file lên mình viết code.

tam888 · 23/12/18

Số điện thoại chi nhiều thế, dùng để spam chăng?
Mà nhiều thế lọc chi, có bao giờ dùng hết trừ khi cần spam, quảng cáo hàng loạt

truonghagpex · 23/12/18

đó là ví dụ bạn ajh, cái quan trọng là làm đc cái này thì sẽ làm đc cái tương tự bạn ơi

snow25 · 23/12/18

truonghagpex đã viết:
đó là ví dụ bạn ajh, cái quan trọng là làm đc cái này thì sẽ làm đc cái tương tự bạn ơi

Bạn dùng kết hợp giữa dictionary và duyệt vòng lặp là được.

befaint · 23/12/18

. Thớt này ở mục CÔNG THỨC. Muốn code sang mục khác.
. Tiêu đề thớt này dư điều kiện cho vào sọt rác.
. Xem ai đăng bài kế tiếp và nội dung là gì?

be_09 · 23/12/18

truonghagpex đã viết:
................................................................................
em viết code mà không được

Góp ý cho bạn:
1/ Bạn đăng bài có đọc kỹ nội quy không vậy? Bạn đăng bài sai Box, Hỏi về VBA mà lại đăng bài trong Box "Giải thích, gỡ rối, xử lý lỗi công thức".
2/ Tiêu đề bài viết nên ngắn gọn "Giúp lọc trùng số điện thoại", nội dung thì nên diễn giải cụ thể hơn để người giúp có thể đọc và hiểu lọc trùng cái gì? Trùng trong cột, trùng trong dòng hay là tất cả bảng tính (hiểu sao đây).

truonghagpex · 23/12/18

be09 đã viết:
Góp ý cho bạn:
1/ Bạn đăng bài có đọc kỹ nội quy không vậy? Bạn đăng bài sai Box, Hỏi về VBA mà lại đăng bài trong Box "Giải thích, gỡ rối, xử lý lỗi công thức".
2/ Tiêu đề bài viết nên ngắn gọn "Giúp lọc trùng số điện thoại", nội dung thì nên diễn giải cụ thể hơn để người giúp có thể đọc và hiểu lọc trùng cái gì? Trùng trong cột, trùng trong dòng hay là tất cả bảng tính (hiểu sao đây).

ok cảm ơn bạn đã góp ý mình lọc trùng trong toàn bộ bảng tính bạn ajh, để mình chuyển sang mục vba vậy. thanks

tam888 · 23/12/18

truonghagpex đã viết:
đó là ví dụ bạn ajh, cái quan trọng là làm đc cái này thì sẽ làm đc cái tương tự bạn ơi

Ví dụ thì thôi, bạn tự giải trước đi, rồi mọi người góp phần, chứ không phải đưa ví dụ thử thách. Ví dụ mà gần SPAM quá cũng dễ hiểu nhầm, và bị lợi dụng... hết

befaint · 23/12/18

tam888 đã viết:
Ví dụ thì thôi, bạn tự giải trước đi, rồi mọi người góp phần, chứ không phải đưa ví dụ thử thách. Ví dụ mà gần SPAM quá cũng dễ hiểu nhầm, và bị lợi dụng... hết

Anh ơi. Tiêu đề đang spam rồi ạ.

truonghagpex · 24/12/18

snow25 đã viết:
Bạn gửi file lên mình viết code.

em viết code theo cách học ngày trước của vòng for nhưng khi chạy ít thì được còn chạy nhiều thì nosresponding và để cả 3 giờ cũng không đc mong anh cho em xin code anh nhé (file còn nhiều dữ liệu em đã xóa bớt rồi ajh)

hoanganhvo2612 · 24/12/18

Bài này tại sao không dùng chức năng xóa trùng của excel nhỉ, Làm thủ công 1 chút là copy hết dữ liệu về 1 cột.

snow25 · 24/12/18

truonghagpex đã viết:
em viết code theo cách học ngày trước của vòng for nhưng khi chạy ít thì được còn chạy nhiều thì nosresponding và để cả 3 giờ cũng không đc mong anh cho em xin code anh nhé (file còn nhiều dữ liệu em đã xóa bớt rồi ajh)

Bạn chuyển sang mục VBA đi không vi phạm nội quy diễn đàn.

.

truonghagpex · 24/12/18

snow25 đã viết:
Bạn chuyển sang mục VBA đi không vi phạm nội quy diễn đàn..

OK BẠN MÌNH ĐANG CHƯA BIẾT CHUYỂN NHƯ THẾ NÀO THẬM CHÍ MUỐN XÓA ĐI CHO MỌI NGƯỜI KHỎI KÊU MÀ KHÔNG LÀM ĐC HU HU

snow25 · 24/12/18

truonghagpex đã viết:
OK BẠN MÌNH ĐANG CHƯA BIẾT CHUYỂN NHƯ THẾ NÀO THẬM CHÍ MUỐN XÓA ĐI CHO MỌI NGƯỜI KHỎI KÊU MÀ KHÔNG LÀM ĐC HU HU

Vậy bạn xem có đúng không nhé.

Mã:

Sub loctrung()
Dim arr, arr1
Dim dic As Object, dk As String, max As Long
Dim lr As Long, i As Long, j As Long, a As Long
Set dic = CreateObject("scripting.dictionary")
With Sheet1
     lr = .Range("A" & Rows.Count).End(xlUp).Row
     If lr < 2 Then Exit Sub
     arr = .Range("A2:E" & lr).Value
     ReDim arr1(1 To UBound(arr, 1), 1 To 5)
     For i = 1 To 5
         a = 0
         For j = 1 To UBound(arr, 1)
          If Len(arr(j, i)) > 0 Then
              dk = arr(j, i)
              If dic.exists(dk) = 0 Then
                 a = a + 1
                 arr1(a, i) = dk
                 dic.Item(dk) = "KK"
              End If
          End If
         Next j
        If max < a Then max = a
     Next i
   .Range("G2").Resize(Rows.Count - 2, 5).ClearContents
   If max Then .Range("G2").Resize(max, 5).Value = arr1
End With
End Sub

HieuCD · 24/12/18

snow25 đã viết:
Vậy bạn xem có đúng không nhé.

Mã:

Sub loctrung() Cột 5 a=0 là mệt:(

snow25 · 24/12/18

Cái này kiểm tra rồi mà anh.Chỗ max đó.Hi em vừa test bài mới nên anh không thấy.

befaint · 24/12/18

snow25 đã viết:
If dic.exists(dk) = 0 Then
'...
dic.Item(dk) = "KK"

Viết thế này cho 'nguy hiểm' hơn trong sách hướng dẫn hử bạn?

snow25 · 24/12/18

befaint đã viết:
Viết thế này cho 'nguy hiểm' hơn trong sách hướng dẫn hử bạn?

Có dic.count rồi.

Dic.count thì nó tính tổng toàn bộ đây là mình chia ra mà anh.
Em hay dùng phương thức Item trong dic nên viết vậy.Không thì dùng kyes cũng được anh ạ.

xin anh chị code lọc trùng (bảng 500 ngìn SĐt); em đọc và mãi vẫn không thể viết được đoạn code đó mong anh chị diễn đàn giúp đỡ em với ạh

Thành viên mới

Thành viên gạo cội

Thành viên gạo cội

Thành viên tích cực

Thành viên mới

Thành viên gạo cội

|||||||||||||

Biên Hòa, Đồng Nai

Thành viên mới

Thành viên tích cực

|||||||||||||

Thành viên mới

File đính kèm

Thành viên thường trực

Thành viên gạo cội

Thành viên mới

Thành viên gạo cội

Chuyên gia GPE

Thành viên gạo cội

|||||||||||||

Thành viên gạo cội

Đếm ngược thời gian