Tìm kiếm sai lệch giữa 2 sheets của cùng một file Excel (1 người xem)

[nobita1012]

Mình có file exel như thế này, mục đích của mình là tìm ra các mục đã có (hoặc không có trong sheet1) mà lại không có (hoặc có ở sheet2), Hoặc các mục hàng hóa đều có trong sheet1 và sheet2 nhưng số lượng của cùng mặt hàng đó lại khác nhau. Tóm lại mục đích của mình muốn là tìm sự khác nhau giữa hai sheet.
Mình rất cảm ơn sự giúp đỡ của mọi người!

 

[dxvien]

tại dòng 3 dùng công thức =(B3=Sheet1!$B$3:$B$813) và =(Sheet1!B3=Sheet2!$B$3:$B$813). Nếu có FALSE tức không có
Kiểm tra số lượng dùng hàm Vlookup

 

[hung2412]

Mình có file exel như thế này, mục đích của mình là tìm ra các mục đã có (hoặc không có trong sheet1) mà lại không có (hoặc có ở sheet2), Hoặc các mục hàng hóa đều có trong sheet1 và sheet2 nhưng số lượng của cùng mặt hàng đó lại khác nhau. Tóm lại mục đích của mình muốn là tìm sự khác nhau giữa hai sheet.
Mình rất cảm ơn sự giúp đỡ của mọi người!

Code cùi:
[GPECODE=vb]Sub Sosanh()
Dim i As Long
Dim t As Long
For i = 3 To Sheets(1).[A65536].End(xlUp).Offset(-2, 0).Row
For t = 3 To Sheets(2).[A65536].End(xlUp).Offset(-2, 0).Row
If Sheets(1).Cells(i, 2) = Sheets(2).Cells(t, 2) And Sheets(1).Cells(i, 5) = Sheets(2).Cells(t, 5) Then
Sheets(1).Cells(i, 2).EntireRow.Interior.ColorIndex = 6
Sheets(2).Cells(t, 2).EntireRow.Interior.ColorIndex = 6
End If
Next
Next
End Sub[/GPECODE]
Sau khi chạy Code, nếu dòng nào không tô màu vàng thì đó là dòng mà bên Sheet kia không giống (hoặc không có) và ngược lại.

 

[jack nt]

đại loại thế này

    With Sheet1
        For Each Cll In .UsedRange.Cells
            If Cll <> Sheet2.Range(Cll.Address) then
                'Your code here
            End If
        Next
    End With

p/s: xem file đính kèm. cái này tổng quát hơn, kiểm tra 2 sheet bất kỳ (đang mở)

 

[HungQuoc49]

Mình có file exel như thế này, mục đích của mình là tìm ra các mục đã có (hoặc không có trong sheet1) mà lại không có (hoặc có ở sheet2), Hoặc các mục hàng hóa đều có trong sheet1 và sheet2 nhưng số lượng của cùng mặt hàng đó lại khác nhau. Tóm lại mục đích của mình muốn là tìm sự khác nhau giữa hai sheet.
Mình rất cảm ơn sự giúp đỡ của mọi người!

Góp vui thêm đoạn code
Các thông số MVT, Tên, ĐVT, KL nếu tất cả giống nhau sẽ bị loại
Kết quả điền vào sheet2

Public Sub Kiem_Tra()
Dim DL, Tam, kq(), r As Long, c As Long

On Error Resume Next
DL = Sheet1.Range("A2").CurrentRegion
With CreateObject("scripting.dictionary")
For r = 1 To UBound(DL)
Tam = ""
For c = 2 To UBound(DL, 2)
If DL(r, c) <> "" Then
Tam = Tam & "_" & DL(r, c)
If Not .exists(Tam) Then
.Add Tam, ""
End If
End If
Next c
Next r

DL = Sheet2.Range("A2").CurrentRegion
For r = 1 To UBound(DL)
Tam = ""
For c = 2 To UBound(DL, 2)
If DL(r, c) <> "" Then
Tam = Tam & "_" & DL(r, c)
If Not .exists(Tam) Then
.Add Tam, ""
Else
.Remove Tam
End If
End If
Next c
Next r
Tam = .keys
ReDim kq(1 To .Count, 1 To 4)

For r = 0 To UBound(Tam)
DL = Split(Tam(r), "_")
For c = 1 To UBound(DL)
kq(r + 1, c) = DL(c)
Next c
Next r

Sheet2.Range("G2").CurrentRegion.Clear
Sheet2.Range("G2").Resize(.Count, 4).Value = kq
End With

Sheet2.Range("G2").CurrentRegion.Font.Name = ".VnTime"
Sheet2.Range("G2").CurrentRegion.Columns.AutoFit

End Sub

 

[Comet297]

BẠn dùng cột phụ nối chuỗi các trường lại với nhau theo dạng

=B3&C3&D3&E3

sau đó dùng countif để đếm là được thôi

 

[nobita1012]

Mình cảm ơn mọi người nhé

 

[nobita1012]

Nhưng toàn dùng code, mà mình lại k biết cái này.

 

[khuongnguyen124]

Đây bác, nếu bác không muốn chơi với "code" thì chỉ có dùng công thức kiều này thôi, down file về mà xem nhé
- Đối với "check Items", nếu nó báo lỗi công thức như: #N/A hay Value hay gì gì đó thì chắc chắn có sự khác nhau giữa 2 sheet (nếu công thức bác không gõ sai)
- Đối với "Check SL" chỉ đơn giản là lấy sum giá trị của sheet này trừ cho sheet kia thôi