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

Liên hệ QC

Người dùng đang xem chủ đề này

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

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

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

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

Bài viết mới nhất

Back
Top Bottom