Bỏ trùng lặp từ 2 dòng khác nhau. (1 người xem)

[kh0jy3n]

Gửi Thầy & các bác.

Em có một file cần bỏ trùng lặp từ 2 dòng khác nhau cụ thể ở file là Cột B & H , kết quả trả về là cột M ( Shet Nhập - Xuất)

Thầy và mấy bác rảnh làm hộ em mới ạ. ở một cột thì em giải quyết được mà ở 2 cột khác nhau như này em potay ạ.

Em cảm ơn!

Em Khởi .

 

[snow25]

Gửi Thầy & các bác.

Em có một file cần bỏ trùng lặp từ 2 dòng khác nhau cụ thể ở file là Cột B & H , kết quả trả về là cột M ( Shet Nhập - Xuất)

Thầy và mấy bác rảnh làm hộ em mới ạ. ở một cột thì em giải quyết được mà ở 2 cột khác nhau như này em potay ạ.

Em cảm ơn!

Em Khởi .

Vậy thì dùng VBA cho nhanh.

 

[dazkangel]

Thử:

=IFERROR(OFFSET(H$2,MATCH(,COUNTIF(N$2:N2,H$3:H$26),),),OFFSET(B$2,MATCH(,COUNTIF(N$2:N2,B$3:B$7),),))

 

[kh0jy3n]

Vậy thì dùng VBA cho nhanh.

Bác viết hộ em đi @@.
cảm ơn bác trước hi .

 

[kh0jy3n]

Thử:

=IFERROR(OFFSET(H$2,MATCH(,COUNTIF(N$2:N2,H$3:H$26),),),OFFSET(B$2,MATCH(,COUNTIF(N$2:N2,B$3:B$7),),))

Hi
không dc bác ợ bác xem lại hộ em với ạ

Em cảm ơn!

 

[Ba Tê]

Gửi Thầy & các bác.

Em có một file cần bỏ trùng lặp từ 2 dòng khác nhau cụ thể ở file là Cột B & H , kết quả trả về là cột M ( Shet Nhập - Xuất)

Thầy và mấy bác rảnh làm hộ em mới ạ. ở một cột thì em giải quyết được mà ở 2 cột khác nhau như này em potay ạ.

Em cảm ơn!

Em Khởi .

Phải là bỏ trùng từ 2 cột chứ sao là 2 dòng?
Bạn chạy thử Sub này coi sao.

Public Sub sGpe()
Dim sArr(), Arr(1 To 10000, 1 To 1), I As Long, K As Long, R As Long
With CreateObject("Scripting.Dictionary")
    '-------------------Cot H'
    sArr = Range("H3", Range("H3").End(xlDown)).Value
    R = UBound(sArr)
    For I = 1 To R
        If Not .Exists(sArr(I, 1)) Then
            K = K + 1
            .Item(sArr(I, 1)) = ""
            Arr(K, 1) = sArr(I, 1)
        End If
    Next I
    '-------------------Cot B'
    sArr = Range("B3", Range("B3").End(xlDown)).Value
    R = UBound(sArr)
    For I = 1 To R
        If Not .Exists(sArr(I, 1)) Then
            K = K + 1
            .Item(sArr(I, 1)) = ""
            Arr(K, 1) = sArr(I, 1)
        End If
    Next I
End With
Range("M3").Resize(K) = Arr
End Sub

 

[kh0jy3n]

Bạn chạy thử Sub này coi sao.

Public Sub sGpe()
Dim sArr(), Arr(1 To 10000, 1 To 1), I As Long, K As Long, R As Long
With CreateObject("Scripting.Dictionary")
    '-------------------Cot H'
    sArr = Range("H3", Range("H3").End(xlDown)).Value
    R = UBound(sArr)
    For I = 1 To R
        If Not .Exists(sArr(I, 1)) Then
            K = K + 1
            .Item(sArr(I, 1)) = ""
            Arr(K, 1) = sArr(I, 1)
        End If
    Next I
    '-------------------Cot B'
    sArr = Range("B3", Range("B3").End(xlDown)).Value
    R = UBound(sArr)
    For I = 1 To R
        If Not .Exists(sArr(I, 1)) Then
            K = K + 1
            .Item(sArr(I, 1)) = ""
            Arr(K, 1) = sArr(I, 1)
        End If
    Next I
End With
Range("M3").Resize(K) = Arr
End Sub

Dạ
Em chỉ có thể nói về code này bằng 3 từ ( Tuyệt cú mèo) .
Em cảm ơn nhiều ạ.
Chúc bác có một tuần làm việc v v ạ .

 

[dazkangel]

Hi
không dc bác ợ bác xem lại hộ em với ạ

Em cảm ơn!

Sửa lại nhé, mình kế công thức cột kế bên:

=IFERROR(OFFSET(H$2,MATCH(,COUNTIF(M$2:M2,H$3:H$26),),),OFFSET(B$2,MATCH(,COUNTIF(M$2:M2,B$3:B$7),),))

 

[kh0jy3n]

Sửa lại nhé, mình kế công thức cột kế bên:

=IFERROR(OFFSET(H$2,MATCH(,COUNTIF(M$2:M2,H$3:H$26),),),OFFSET(B$2,MATCH(,COUNTIF(M$2:M2,B$3:B$7),),))

Hi
Cảm ơn bác nhiều ạ .
chúc bác một ngày tốt lành hi

 

[Comet297]

Nếu chỉ lấy 1 lần sao bạn không copy rồi Data | Remove Duplicate

 

[kh0jy3n]

Nếu chỉ lấy 1 lần sao bạn không copy rồi Data | Remove Duplicate

Không dữ liệu này theo năm ạ. bất cứ lúc nào sếp hỏi cũng phải làm @@,
có thể theo ngày , theo tháng ..

Em cảm ơn nhiều ạ