Tìm điểm khác nhau giửa 2 file excel

[binhan007]

Chào các bạn! Mong các bạn giúp tìm hướng giải quyết vấn đề sau:
Tôi có 2 file Excel: A và copy A với dữ liệu hòn toàn giống nhau , Sau đó trong file copyA tôicó có sửa một vài điểm so với fileA; nhưng vì dữ liệu quá nhiều ( khoảng hơn 400 hàng ) nên tôi không nhớ đã sửa điểm nào.
Xin hỏi có cách nào để tìm ra điểm khác nhau ( được sửa chữa ) cuả file copy A so với file A không ?

 

[Hai Lúa Miền Tây]

Chào các bạn! Mong các bạn giúp tìm hướng giải quyết vấn đề sau:
Tôi có 2 file Excel: A và copy A với dữ liệu hòn toàn giống nhau , Sau đó trong file copyA tôicó có sửa một vài điểm so với fileA; nhưng vì dữ liệu quá nhiều ( khoảng hơn 400 hàng ) nên tôi không nhớ đã sửa điểm nào.
Xin hỏi có cách nào để tìm ra điểm khác nhau ( được sửa chữa ) cuả file copy A so với file A không ?

Nếu bạn đồng ý chép file copy A và A nằm chung 1 file của 2 sheet thì mình có cách giúp bạn.

 

[dat_butmuc]

Chào các bạn! Mong các bạn giúp tìm hướng giải quyết vấn đề sau:
Tôi có 2 file Excel: A và copy A với dữ liệu hòn toàn giống nhau , Sau đó trong file copyA tôicó có sửa một vài điểm so với fileA; nhưng vì dữ liệu quá nhiều ( khoảng hơn 400 hàng ) nên tôi không nhớ đã sửa điểm nào.
Xin hỏi có cách nào để tìm ra điểm khác nhau ( được sửa chữa ) cuả file copy A so với file A không ?

Nếu dữ liệu các dòng không giống nhau thì bạn dùng Vlookup tham chiếu 02 file với nhau thì biết ngay những dữ liệu nào đã sửa thôi mà !

 

[Hai Lúa Miền Tây]

Nếu dữ liệu các dòng không giống nhau thì bạn dùng Vlookup tham chiếu 02 file với nhau thì biết ngay những dữ liệu nào đã sửa thôi mà !

Dùng Vlookup sẽ không phát hiện 1 cách chính xác đâu bạn, vì rủi vì trong 2 file có nhiều mã trùng có giá trị khác nhau thì sao. Nếu muốn dùng Vlookup có cách là nối chuổi để tham chiếu mới chính xác.

 

[concogia]

Chào các bạn! Mong các bạn giúp tìm hướng giải quyết vấn đề sau:
Tôi có 2 file Excel: A và copy A với dữ liệu hòn toàn giống nhau , Sau đó trong file copyA tôicó có sửa một vài điểm so với fileA; nhưng vì dữ liệu quá nhiều ( khoảng hơn 400 hàng ) nên tôi không nhớ đã sửa điểm nào.
Xin hỏi có cách nào để tìm ra điểm khác nhau ( được sửa chữa ) cuả file copy A so với file A không ?

Cho nó ở gần gần nhau ( ý như của bạn domfootwear ) rồi dùng hàm EXACT kết hợp với CF ( cho dễ nhìn, không sử dụng cũng chẳng sao) là ra ngay thôi mà
Thân

 

[Hai Lúa Miền Tây]

Nếu như bạn muốn dùng VBA thì dùng code sau:

Sub SoSanh2Sheet(ws1 As Worksheet, ws2 As Worksheet)
Dim r As Long, c As Integer
Dim lr1 As Long, lr2 As Long, lc1 As Integer, lc2 As Integer
Dim maxR As Long, maxC As Integer, cf1 As String, cf2 As String
Dim rptWB As Workbook, DiffCount As Long
    Application.ScreenUpdating = False
    Application.StatusBar = "Dang tao bao cao..."
    Set rptWB = Workbooks.Add
    Application.DisplayAlerts = False
    While Worksheets.Count > 1
        Worksheets(2).Delete
    Wend
    Application.DisplayAlerts = True
    With ws1.UsedRange
        lr1 = .Rows.Count
        lc1 = .Columns.Count
    End With
    With ws2.UsedRange
        lr2 = .Rows.Count
        lc2 = .Columns.Count
    End With
    maxR = lr1
    maxC = lc1
    If maxR < lr2 Then maxR = lr2
    If maxC < lc2 Then maxC = lc2
    DiffCount = 0
    For c = 1 To maxC
        Application.StatusBar = "So sanh cac cell " & Format(c / maxC, "0 %") & "..."
        For r = 1 To maxR
            cf1 = ""
            cf2 = ""
            On Error Resume Next
            cf1 = ws1.Cells(r, c).FormulaLocal
            cf2 = ws2.Cells(r, c).FormulaLocal
            On Error GoTo 0
            If cf1 <> cf2 Then
                DiffCount = DiffCount + 1
                Cells(r, c).Formula = "'" & cf1 & " <> " & cf2
            End If
        Next r
    Next c
    Application.StatusBar = "Dang dinh dang bang tinh..."
    With Range(Cells(1, 1), Cells(maxR, maxC))
        .Interior.ColorIndex = 19
    On Error GoTo 0
    End With
    Cells.Columns.AutoFit
    rptWB.Saved = True
    If DiffCount = 0 Then
        rptWB.Close False
    End If
    Set rptWB = Nothing
    Application.StatusBar = False
    Application.ScreenUpdating = True
    MsgBox "Co " & DiffCount & " cell co noi dung khac nhau", vbInformation, _
        "So sanh giua " & ws1.Name & " voi " & ws2.Name
End Sub
Sub SoSanh()
    SoSanh2Sheet Worksheets("Sheet1"), Worksheets("Sheet2")
End Sub

Bạn tham khảo thêm file nhé.

 

[binhan007]

Nếu bạn đồng ý chép file copy A và A nằm chung 1 file của 2 sheet thì mình có cách giúp bạn.

Cám ơn bạn đã giúp đở, nhưng do 2 file gồm nhiều sheet tham chiếu nên không thể ghep vào 2 sheet cuả 1 file.
Tôi đang thủ dùng VBA như hướng dẫn cuả Domfootwear xem sao vì không rành về VBA.
Nguyên là sếp có nhờ tôi kiểm tra 1 file dư toán, tôi dã chép thêm 1 file và sửa trên file này các điểm thiếu sót. Sếp lại bảo tôi làm report về nhửng điểm đó!!!!!. Giờ mà xem lại toàn bộ Dư toán chắc bỏ cơm luôn.
Cám ơn các bạn đã giúp- Thank u vinamilk

 

[dat_butmuc]

Cám ơn bạn đã giúp đở, nhưng do 2 file gồm nhiều sheet tham chiếu nên không thể ghep vào 2 sheet cuả 1 file.
Tôi đang thủ dùng VBA như hướng dẫn cuả Domfootwear xem sao vì không rành về VBA.
Nguyên là sếp có nhờ tôi kiểm tra 1 file dư toán, tôi dã chép thêm 1 file và sửa trên file này các điểm thiếu sót. Sếp lại bảo tôi làm report về nhửng điểm đó!!!!!. Giờ mà xem lại toàn bộ Dư toán chắc bỏ cơm luôn.
Cám ơn các bạn đã giúp- Thank u vinamilk

Thực sự không có file thì mọi người chỉ hình dung và trao đổi với bạn thôi, như vậy không trực quan cho lắm. Thiết nghĩ bạn gửi file lên thì sẽ có kết quả tốt thôi,...
Thân mến,