hỏi dữ liệu trùng trong một cột

[feelingyes]

Em có bài toán tìm số điện thoại trùng
Rất mong được các Huynh chỉ giúp

 

[DOSNET]

Chủ đề này ko được mới lắm nhỉ...vẫn là countif kết hợp CF thôi !

 

[salam]

Bạn xem file xem nhé

 

[feelingyes]

-Hi hi cám ơn anh Phannhukhang và Salam, rất xin lỗi vì em lười suy nghĩ quá
Em sẽ rút kinh nhiệm

 

[hoangdanh282vn]

Em có bài toán tìm số điện thoại trùng
Rất mong được các Huynh chỉ giúp

Bạn dùng Name thử xem

 

[cadafi]

Mình thêm một cách đơn giản nữa cho vui cửa vui nhà nhé.

 

[DOSNET]

Mình thêm một cách đơn giản nữa cho vui cửa vui nhà nhé.

Tớ ngó cái CF của cậu có 2 màu vàng, hồng...thích quá vào xem thì thấy empty. Bây h đặt trường hợp muốn tô nhiều màu trong CF( mỗi cặp trùng một màu khác nhau) thì làm thế nào nhỉ...cho dễ phát hiện các cặp trùng ấy mà. Chắc công thức bó tay rồi !

 

[cadafi]

Tớ ngó cái CF của cậu có 2 màu vàng, hồng...thích quá vào xem thì thấy empty. Bây h đặt trường hợp muốn tô nhiều màu trong CF( mỗi cặp trùng một màu khác nhau) thì làm thế nào nhỉ...cho dễ phát hiện các cặp trùng ấy mà. Chắc công thức bó tay rồi !

Hehe, anh xem lại giúp em đi, em làm cột b, vàng hồng cột a là của chủ nhân đấy!
Em đang xem coi có cách nào thỏa mãn yêu cầu của anh không đây, sao khó quá!

 

[cadafi]

Tớ ngó cái CF của cậu có 2 màu vàng, hồng...thích quá vào xem thì thấy empty. Bây h đặt trường hợp muốn tô nhiều màu trong CF( mỗi cặp trùng một màu khác nhau) thì làm thế nào nhỉ...cho dễ phát hiện các cặp trùng ấy mà. Chắc công thức bó tay rồi !

Anh phamnhukhang ơi, CF nó cho có 3 điều kiện thôi, lỡ có 4 cặp trùng nhau thì sao ta? Chắc làm không được quá!

 

[DOSNET]

Anh phamnhukhang ơi, CF nó cho có 3 điều kiện thôi, lỡ có 4 cặp trùng nhau thì sao ta? Chắc làm không được quá!

Vấn đề hoàn toàn khác, cùng một điều kiện nhưng khác số liệu C_d ơi ! Cậu thử "mần" bằng VBA xem sao !

 

[LikeIt]

Vấn đề hoàn toàn khác, cùng một điều kiện nhưng khác số liệu C_d ơi ! Cậu thử "mần" bằng VBA xem sao !

Anh Khang ơi, theo chủ đề bài này có kết quả tiếp theo ko anh? vì bài này em thấy liên quan đến một bài trong GPE mà có bạn đang hỏi.tks

 

[DOSNET]

Anh Khang ơi, theo chủ đề bài này có kết quả tiếp theo ko anh? vì bài này em thấy liên quan đến một bài trong GPE mà có bạn đang hỏi.tks

Mấy cao thủ không ngó ngàng gì anh sao dam ho he ở đây em, quá sức của anh rồi !

 

[SA_DQ]

Tham gia với, bằng VBA

Vấn đề hoàn toàn khác, cùng một điều kiện nhưng khác số liệu C_d ơi ! Cậu thử "mần" bằng VBA xem sao !

Option Explicit

Sub Trung1Cot()
 Dim lrow As Long, wW As Long
 Dim Rng As Range
 
 lrow = Sheets("Sheet1").[a65432].End(xlUp).Row
 Range("A1:A" & lrow).Copy Destination:=Range("IU1")
 Columns("IU:IU").Select
 Selection.Sort Key1:=Range("IU2"), Order1:=xlDescending, Header:=xlGuess _
    , OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
    DataOption1:=xlSortTextAsNumbers
 For wW = lrow To 2 Step -1
    If Cells(wW, 255) = 0 Or Cells(wW, 255) <> Cells(wW - 1, 255) Then
        If Rng Is Nothing Then
            Set Rng = Cells(wW, 255)
        Else
            Set Rng = Union(Cells(wW, 255), Rng)
        End If
    End If
 Next
 Rng.Delete xlUp
 Range("IU2:IU" & lrow).Copy Destination:=Range("B2")
 Range("IU1:iU" & lrow).Clear:              Range("B2").Select
End Sub

 

[cadafi]

Mấy cao thủ không ngó ngàng gì anh sao dam ho he ở đây em, quá sức của anh rồi !

Anh cứ khiêm tốn quá nha!.
Em nghiên cứu ra rồi. Anh xem file đính kèm thử xem. Có gì góp ý cho em để đoạn code chạy nhanh hơn.

Anh SA_DQ ơi, cái đang cần là code để tô màu những giá trị giống nhau bị trùng cơ.

 

[tigertiger]

Anh cứ khiêm tốn quá nha!.
Em nghiên cứu ra rồi. Anh xem file đính kèm thử xem. Có gì góp ý cho em để đoạn code chạy nhanh hơn.

Anh SA_DQ ơi, cái đang cần là code để tô màu những giá trị giống nhau bị trùng cơ.

sửa lại 1 chút cho ngắn gọn hơn và ghi giá trị sang cột bên cạnh

Sub ToMauTrung_ghivalue()
'Create by Vo Tuan Kiet
Worksheets("Sheet1").Select
Dim MyCells(5000, 1) As Long
Dim MyRng As Range, nC As Integer
Dim MaxRow, IZ, ZCount As Long, MyX, MyR As Integer
MaxRow = Range("A65536").End(xlUp).Row
IZ = 0
For ZCount = 2 To MaxRow
    nC = Application.WorksheetFunction.CountIf(Range("A1:A" & MaxRow), Cells(ZCount, 1))
    If Cells(ZCount, 1) <> 0 And nC > 1 Then
        MyCells(IZ, 0) = nC
        MyCells(IZ, 1) = ZCount
        IZ = IZ + 1
    End If
Next ZCount

IZ = IZ - 1

    For MyR = 0 To IZ
          With Range("A" & MyCells(MyR, 1))
                    .Interior.ColorIndex = MyCells(MyR, 0) + 30
                    .Interior.Pattern = xlSolid
                    .Offset(0, 1).Value = .Value
          End With
    Next MyR
End Sub