Giúp mình vấn đề lọc nhiều tên! (1 người xem)

[tungds]

Mọi người giúp mình với, minh đang mắc k bít làm thế nào
Mình có đính kèm file ở dưới.
Yêu cầu là : Trong file có các tên linh kiện lớn từ ô A7-A439. Và ứng với mỗi ô sẽ có các linh kiện chi tiết từ ô F6 - AJ6. Ứng với mỗi chi tiết sẽ có số linh kiện là 1 hoặc 2 hoặc dấu "-" là không có. Bây h mình muốn lọc tên các linh kiện chi tiết từ ô F6 - AJ6 có số lượng 1 hoặc 2( cứ có số là được) ứng với mỗi chi tiết lớn ở ô A7 - A439 sang 1 cột riêng.
VD: ở ô A7 có mã là 9307914-00 thì ứng với nó từ ô F6 đến AJ6 sẽ có các ô G7 có giá trị là 1 có tên tương ứng ở ô G6 là FB2T, ô U7 có giá trị là 1 có tên tương ứng ở ô U6 là TA82.....vân vân. Mình muốn lọc các tên đó ra thành 1 ô ví dụ ở ô AL7 sẽ có các tên là FB2T,TA82.... có thể cách nhau bằng dấu "," hoặc khoẳng trắng miễn sao phân biệt được. Tương tự như thế với các ô còn lại từ A8 đến A439 sẽ được 1 cột từ AL7 đến AL439. Mình xin cảm ơn trước!

 

[SA_DQ]

Mình chỉ có thể làm hàm tự tạo;

Bạn tham khảo trong khi chờ đợi các "Nhà Siêu CT' nha!

 

[tungds]

Bạn có thể hướng dẫn mình làm sao làm được hàm như vậy được k? viết code hay dùng công thức vậy

 

[ChanhTQ@]

[ThongBao]Bạn sẽ thấy hàm tự tạo trong cửa sổ VBA (viết code); Nó đây:

Option Explicit
Function gpeBOM(Rng As Range)
1 Dim Cls As Range
   
 For Each Cls In Rng
3    If Cls.Value > 0 Then         gpeBOM = gpeBOM & ";" & Cells(6, Cls.Column).Value
 Next Cls
5 gpeBOM = Mid(gpeBOM, 2, Len(gpeBOM))
End Function

[/ThongBao]

Dịch sang tiếng Việt các dòng lệnh VBA như sau:

D1: Khai báo 1 biến đối tượng kiểu Range cần dùng;

D2: Thiết lập vòng lặp duyệt từ đầu chí cuối vùng mà người dùng cung cấp
Vòng lặp này kết thúc ở dòng lệnh mang số 4 (ngầm định)

D3: Điều kiện nếu ô ta đang duyệt có chứa trị > 0 thì chép nối trị đang chứa trong ô thuộc dòng 6 cùng cột với ô đang khảo sát;
(Có thêm vô ký tự fân cách là ';')

D5: Trả kết quả cho người dùng (Sau khi xử lý chi tiết nhỏ: Cắt bỏ ký tự fân cách đầu tiên )

Chúc bạn vui, nha!