Tham chiếu - Validation (2 người xem)

[jupiter2835]

các bác giúp tôi hoàn thiện file này, hôm trước tôi đã hỏi nhưng không lập được ở hai sheet khác nhau

 

[anhchangnhaque1552000]

index-match

Bạn phải tạo thêm cột phụ bên sheet data nha. ô O2 không được xóa.
Bạn xem file đính kèm
Chúc may mắn

 

[thivantan]

Nếu bạn muốn sử dụng Macro:

Option Explicit

Sub thop()
Application.ScreenUpdating = False
Sheet3.Range("B18:I1000").ClearContents
With Range(Sheet2.[B4], Sheet2.[B65536].End(xlUp))
    .AdvancedFilter 1, , , True
    .Offset(1).Copy: Sheet2.Range("M2").PasteSpecial 3
End With
  Sheet2.ShowAllData

Sheet2.Range(Sheet2.[B4], Sheet2.[B65536].End(xlUp)).Copy Sheet2.[O2]
Sheet2.Range(Sheet2.[E4], Sheet2.[L65536].End(xlUp)).Copy Sheet2.[P2]

With Sheet2.[O1].CurrentRegion
    .AutoFilter 1, Sheet3.Range("C4:C5")
    .Offset(1, 1).Resize(, 8).Copy: Sheet3.[B18].PasteSpecial 3
End With
   Sheet2.ShowAllData: Sheet2.AutoFilterMode = False:
 
Sheet2.Range("O2:W1000").ClearContents
Cells(5, 1).Select
Application.ScreenUpdating = True
  
End Sub