Lọc để trích dữ liệu nâng cao

  • Thread starter shadowrich007
  • Ngày gửi

3869 lượt xem

S

shadowrich007

Sơ cấp
22/10/08
1
0
0
32
hanoi
Em có một bài toán mà nghĩ mãi không ra, các bác Pro giúp em với.

http://www.webketoan.vn/forum/attachment.php?attachmentid=7716&stc=1&d=1260725562

Có một vùng dữ liệu như hình sau ạ :



Em muốn dùng một hàm lọc để lọc để lọc các giá trị với điều kiện như sau.
Như các bác thấy từ A2 đến A8 có cùng một chủ để là "mobile"
Em muốn trích các ô từ D2 đến D8 tương ứng với "mobile" ra theo hình sau:



Có nghĩa là các ô tương ứng với chủ để nào thì xếp thành một hàng

ví dụ :

mobile: mobile z mobile phone windos mobile
máy ảnh: máy ảnh máy ảnh số máy ảnh kỹ thuật số
máy quay: máy quay máy quay phim máy quay số

em cảm ơn ạ.:)
 

Đính kèm

S

SA_DQ

Thành viên thân thiết
29/6/05
446
41
28
62
HCM city
Bạn dùng macro ni cái nha

Mã:
Option Explicit
[B]Sub TrichLoc()[/B]
 Dim Rng As Range, sRng As Range, Clls As Range, MyAdd As String
 
 Range([G2], [iV7]).ClearContents
 Set Rng = Range([A1], [A65500].End(xlUp))
 For Each Clls In Range([F2], [F65500].End(xlUp))
   Set sRng = Rng.Find(Clls.Value, , xlFormulas, xlPart)
   If Not sRng Is Nothing Then
      MyAdd = sRng.Address
      Do
         With Cells(Clls.Row, "iV").End(xlToLeft).Offset(, 1)
            .Value = sRng.Offset(, 3).Value
         End With
         Set sRng = Rng.FindNext(sRng)
      Loop While Not sRng Is Nothing And sRng.Address <> MyAdd
   End If
 Next Clls
[B]End Sub[/B]
 

Thành viên trực tuyến

  • prokhong5
  • sondavosa

Xem nhiều