Tìm giá trị khác nhau giữa 2 cột (1 người xem)

[alexnguyen2104]

Bạn nào giúp mình tìm giá trị khác nhau giữa 2 cột trong file đính kèm nhé. trước giờ toàn làm thủ công lâu quá nên bạn nào có kinh nghiệm giúp mình với.

 

[be_09]

Bạn nào giúp mình tìm giá trị khác nhau giữa 2 cột trong file đính kèm nhé. trước giờ toàn làm thủ công lâu quá nên bạn nào có kinh nghiệm giúp mình với.

Nếu dữ liệu cột B và cột C có dữ liệu tương quan với nhau thì bạn chỉ dùng cách đơn giản là tại D5 bạn dùng toán trừ B5-C5 rồi Fill xuống những Cell nào khác 0 là dữ liệu khác nhau.

Bạn cho ẩn số 0 bằng cách: từ meu vào Tools> Options cửa sổ Options hiện ra chọn Thẻ View tìm và bỏ dấu check mục Zero values xong nhấn OK, Sau đó dùng AutoFilter chọn NonBlanks và tô màu để đánh dấu những con số có sự khác nhau.

 

[chuot0106]

Bạn nào giúp mình tìm giá trị khác nhau giữa 2 cột trong file đính kèm nhé. trước giờ toàn làm thủ công lâu quá nên bạn nào có kinh nghiệm giúp mình với.

Sau khi tìm ra được giá trị khác nhau thì bạn muốn lọc ra hay muốn tô màu các giá trị khác nhau đó. Nói rõ ràng ra sau đó ta tiếp tục nhé! Tôi sợ làm đi làm lại lắm.

 

[chuot0106]

Bạn nào giúp mình tìm giá trị khác nhau giữa 2 cột trong file đính kèm nhé. trước giờ toàn làm thủ công lâu quá nên bạn nào có kinh nghiệm giúp mình với.

Mở File nhấn nút "TÌM" xem kết quả.
Nhớ Enable macros trước khi mở File nhé(Hướng dẫn tại chữ kí bên dưới của tôi).

 

[Let'GâuGâu]

Bạn nào giúp mình tìm giá trị khác nhau giữa 2 cột trong file đính kèm nhé. trước giờ toàn làm thủ công lâu quá nên bạn nào có kinh nghiệm giúp mình với.

hàm jointext của anh NDu

Function JoinText(ByVal Delimiter As String, ParamArray Arrays()) As String
  Dim aTmp, Arr(), Item, tmp As String
  Dim i As Long, n As Long
 On Error Resume Next
  For i = LBound(Arrays) To UBound(Arrays)
    aTmp = Arrays(i)
    If Not IsArray(aTmp) Then aTmp = Array(aTmp)
    For Each Item In aTmp
      If TypeName(Item) <> "Error" Then
        tmp = CStr(Item)
        n = n + 1
        ReDim Preserve Arr(1 To n)
        Arr(n) = tmp
      End If
    Next
  Next
  If n Then JoinText = Join(Arr, Delimiter)
End Function

cthức tai

F6=JoinText(" & ",ADDRESS(IF(1/(COUNTIF(B5:B12,C5:C12)=0),ROW(B5:B12)),2))

nhớ nhấn Ctrl Shìt Enter