Giúp em liệt kê các mặt hàng cùng tên (khác mã)

[tranvanluc]

Em chào cả nhà !
em có 1 file dữ liệu nguồn từ đó em muốn tìm những thông tin khác có liên quan(file đính kèm). Giả sử em có tên 1 mã hàng nào đó và qua đó em muốn tìm tất cả những mã hàng khác cùng có chung 1 tên sản phẩm. (nhiều mã hàng có cùng tên sản phẩm ). VD:em đang sản xuất mã hàng 98997 có tên SP là RT5-0518-000 và em muốn khi nhập mã 98997 và thì nó tự tìm kiếm cho em các mã khác có cùng tên SP là RT5-0518-000 .Em đã tìm rất nhiều cách nhưng không được, không được dùng filter vì em không muốn thay đổi vị trí các ô và cột (vì đằng sau nó em đã viết các công thức khác ),dùng Vookup thì no chỉ tìm được 1 mã là nó thôi, Mong các bác cao thu giúp em với !!!!!!!!!!!
(em có 1 vidụ cụ thể trong file đấy )
Thanks các pro rất nhiều !!!!!!

 

[ptm0412]

Bài này có tiêu đề: "Giúp em với cả nhà ơi, khó quá !!!" và sai box, nghĩa là phạm quy, lẽ ra phải bị xóa. Tôi sửa cho bạn và dời về đúng box lần này.

 

[SA_DQ]

Bạn xài macro sư kiện tại [A2], nha.

Xem trong file đính kèm

 

[keentwo]

-Thử sức tý.Lâu rùi không dùng FIND cũng quên gần hết rùi
-Mà bạn phải cảm ơn nhiều bác PTM nhé
(thế nào cho Application.ScreenUpdating = False lại làm chậm thế.xoá đi lại nhanh như cũ ?????? chắc đặt sai chỗ)

 

[ptm0412]

Code Chị HaiYen sao liệt kê ít quá, chỉ từ 1 đến 2 mã cùng tên?
Code Keen2 chậm quá, liệt kê nhiều hơn nhưng không biết có liệt kê đủ không, vì không chờ nổi. Với lại nó quýnh màn hình đùng đùng đau quá.

Bài này nên dùng mảng cho nhanh.

 

[sealand]

Mình tham gia 1 cách ít người để ý: Dùng hàm Filter mà mình đã có bài nói về nó
Ưu điểm:
-Tốc độ khá nhanh
-Chỉ cần gõ 1 phần tên là đã có thể lọc

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$1" Then
 Dim mg1, mg2, i, Dg
 Dim Cl As Range
 Application.ScreenUpdating = False
 Sheet3.[A5:R5].Resize(65531).Clear
 mg1 = WorksheetFunction.Transpose( _
 Sheet1.Range(Sheet1.[C5], Sheet1.[C65536].End(xlUp)))
 For i = 1 To UBound(mg1)
 mg1(i) = Right("0000" & i + 4, 5) & mg1(i)
 Next
 mg2 = Filter(mg1, Sheet3.[C1], True, vbTextCompare)
 Set Cl = Sheet3.[A65536].End(xlUp).Offset(1)
 For i = 0 To UBound(mg2)
 Dg = Val(Left(mg2(i), 5))
 Sheet1.Cells(Dg, 1).Resize(, 18).Copy Cl
 Set Cl = Cl.Offset(1)
 Next
End If
End Sub

Nói chung hàm Filter khá thuần và "dễ tính". Khi sử dung tuỳ yêu cầu chính xác đến đâu ta gõ tên đến đó, ví dụ cần kê QT5 thì ta chỉ cần nhập vậy rồi Enter

 

[ndu96081631]

Em chào cả nhà !
em có 1 file dữ liệu nguồn từ đó em muốn tìm những thông tin khác có liên quan(file đính kèm). Giả sử em có tên 1 mã hàng nào đó và qua đó em muốn tìm tất cả những mã hàng khác cùng có chung 1 tên sản phẩm. (nhiều mã hàng có cùng tên sản phẩm ). VD:em đang sản xuất mã hàng 98997 có tên SP là RT5-0518-000 và em muốn khi nhập mã 98997 và thì nó tự tìm kiếm cho em các mã khác có cùng tên SP là RT5-0518-000 .Em đã tìm rất nhiều cách nhưng không được, không được dùng filter vì em không muốn thay đổi vị trí các ô và cột (vì đằng sau nó em đã viết các công thức khác ),dùng Vookup thì no chỉ tìm được 1 mã là nó thôi, Mong các bác cao thu giúp em với !!!!!!!!!!!
(em có 1 vidụ cụ thể trong file đấy )
Thanks các pro rất nhiều !!!!!!

Bài này làm theo cách dễ nhất thì đó phải là Advanced Filter
Gợi ý công thức cho điều kiện sẽ là:

=AND('2008'!$A5<>$A$2,'2008'!$C5=VLOOKUP($A$2,'2008'!$A:$C,3,0))

Công thức này đặt tại Sheet1, ở cell nào cũng được, miễn là phía trên nó phải có 1 cell rổng
Với dữ liệu < 2000 dòng thì... thừa sức

 

[danh]

Cách của sư phụ sealand rất tiện, tôi không biết code, nhưng có nhu cầu sử dụng bài này, Sau khi xóa đi cột B, sũa lại code (thay chữ C bằng chữ B nhưng nó không chạy). Nhờ sư phụ sealand sữa lại giúp code bài này trong trường hợp không có cột B (tên khách hàng).
(File đính kèm)
Cảm ơn nhiều !

 

[phihndhsp]

thấy bài của Hyen17 rất hay nên muốn góp thêm tí muối nữa cho mặn mà hi hi

 

[vuhoang-kynguyen2011]

Em la thanh vien moi. Em moi ra truong trinh do excel dang con kem thay anh chi lam gioi ghe do. Khong biet khi nao em co the dong gop duoc vao cac cau tra loi cho moi nguoi nua.Hihihiiiii