Bạn nêu rõ hơn điều kiện lọc là những gì.
Có thắc mắc là vì sao lại có 2 part number 721116AU10 và KA0N67010 ( Trong vùng điều kiện )
Dùng pvot xong sẽ tắt select all rồi tích chọn những part bạn cần
Bạn dán đoạn code này chạy xem thế nào. Kết quả điền vào sheet1Pivottable xong rồi mò từng mã tích chọn cũng giống như Filter rồi tích chọn vậy ? có gần 100 mã, nếu mò từng mã tích chọn chắc chết
Mình đã xóa đi những dòng trùng (có thể dữ liệu có chút sai sót)
Bạn vào xem thử flie dữ liệu
Public Sub Loc()
Dim Ma, Mau, DL, Kq, d As Long, r As Long
Sheet1.Range("D2").CurrentRegion.Clear
Ma = Sheet2.Range("B2", Sheet2.Range("B2").End(xlDown))
Mau = Sheet1.Range("A3", Sheet1.Range("A3").End(xlDown))
Set Kq = Sheet2.Range("A1", "O1")
For d = 1 To UBound(Ma)
For r = 1 To UBound(Mau)
If Ma(d, 1) = Mau(r, 1) Then
Set DL = Sheet2.Range("A" & d, "O" & d)
Set Kq = Union(Kq, DL)
End If
Next r
Next d
Kq.Copy Sheet1.Range("D2")
Sheet1.UsedRange.Columns.AutoFit
End Sub
Lọc về sheet1 nhéPivottable xong rồi mò từng mã tích chọn cũng giống như Filter rồi tích chọn vậy ? có gần 100 mã, nếu mò từng mã tích chọn chắc chết
Mình đã xóa đi những dòng trùng (có thể dữ liệu có chút sai sót)
Bạn vào xem thử flie dữ liệu
Sub GPE()
Sheets("GOC").Range("A1:O" & Sheets("GOC").Range("A1").End(xlDown).Row).AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("dk").Range("B1:B" & Sheets("dk").Range("B1").End(xlDown).Row), CopyToRange:=Range("A4")
End Sub
