lọc dữ liệu ở 2 sheet không trùng nhau ra. giúp em mấy huynh

Liên hệ QC

tungleminh1502

Thành viên mới
Tham gia
11/12/07
Bài viết
5
Được thích
0
Mấy anh cho em hỏi ? Em có 1 file danh sách dư nợ : Sheet 1 sao kê dư nợ, sheet 2 dư nợ. Em muốn lọc ra ở sheet 3 những khách hàng vay ở sheet 1 sao kê dư nợ mà không nằm trong sheet 2 dư nợ. Có file đính kèm dưới đây
 

File đính kèm

  • DANH SACH DU NU.xls
    44 KB · Đọc: 73
Mấy anh cho em hỏi ? Em có 1 file danh sách dư nợ : Sheet 1 sao kê dư nợ, sheet 2 dư nợ. Em muốn lọc ra ở sheet 3 những khách hàng vay ở sheet 1 sao kê dư nợ mà không nằm trong sheet 2 dư nợ. Có file đính kèm dưới đây
Dùng VBA.
Sub GPE()
Dim R As Long
R = 4
Sheets("Ketqua").[4:65536].ClearContents
For Each Cll In Range(Sheets("SAO KE DU NO").[B4], Sheets("SAO KE DU NO").[B65536].End(xlUp)).SpecialCells(2)
If Application.WorksheetFunction.CountIf(Sheets("DU NO").[B4:B65536], Cll.Value) > 0 Then
Sheets("Ketqua").Range("B" & R & ":H" & R).Value = Cll.Resize(, 7).Value
Sheets("Ketqua").Cells(R, 1).Value = R - 3
R = R + 1
End If
Next
End Sub
Nếu bạn thích công thức thì tôi sẽ biếu bạn cách dùng công thức.
 

File đính kèm

  • GPE.xls
    67.5 KB · Đọc: 120
Mấy anh cho em hỏi ? Em có 1 file danh sách dư nợ : Sheet 1 sao kê dư nợ, sheet 2 dư nợ. Em muốn lọc ra ở sheet 3 những khách hàng vay ở sheet 1 sao kê dư nợ mà không nằm trong sheet 2 dư nợ. Có file đính kèm dưới đây
Loại bài toàn này đã nói nhiều trên diển đàn rồi:
- Lọc tất cả Item trong List1 và Item ấy không tồn tại ở List2
Với yêu cầu này dùng AdvancedFilter là ngon lành nhất
Code có vầy:
PHP:
Sub Loc()
  Sheet3.Range("A3").CurrentRegion.Clear
  With Range(Sheet1.[A3], Sheet1.[H65536].End(xlUp))
    .AdvancedFilter 2, Sheet3.[K3:K4], Sheet3.[A3]
  End With
End Sub
Làm bằng tay cũng được
Xem file
 

File đính kèm

  • DANH SACH DU NU.xls
    62 KB · Đọc: 149
Loại bài toàn này đã nói nhiều trên diển đàn rồi:
- Lọc tất cả Item trong List1 và Item ấy không tồn tại ở List2
Với yêu cầu này dùng AdvancedFilter là ngon lành nhất
Code có vầy:
PHP:
Sub Loc()
  Sheet3.Range("A3").CurrentRegion.Clear
  With Range(Sheet1.[A3], Sheet1.[H65536].End(xlUp))
    .AdvancedFilter 2, Sheet3.[K3:K4], Sheet3.[A3]
  End With
End Sub
Làm bằng tay cũng được
Xem file

anh ơi em là người mới học excel. anh chỉ chi tiết cách làm bằng tay đi. em down file về làm lại gống như anh mà không được.
 
Bạn làm theo thử cách này xem có đúng như ý bạn không:
=IF(COUNTIF('SAO KE DU BO'!$B$4:$B$141,'DU NO'!B4)=1,"",'SAO KE DU BO'!B4) --> Ctrl + Shift + Enter
 
Cảm ơn bạn chuot08 nhiều. Mình cũng có việc phải làm giống như vậy hôm nay mới tìm thấy. Sướng quá hen.
Em thấy mọi người hay dùng VBA nhưng em chưa dùng khi nào cả mà xem cũng muốn mua sách về đọc xem thế nào.
 
Web KT
Back
Top Bottom