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

  • Thread starter shadowrich007
  • Ngày gửi
S

shadowrich007

Guest
22/10/08
1
0
0
37
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 ạ :

1-11.jpg


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:

2-10.jpg


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

  • excel-khoqua-proGiupVoi.xls
    32 KB · Lượt xem: 144
Khóa học Quản trị dòng tiền
S

SA_DQ

Thành viên Cố vấn - Webketoan Mentors
29/6/05
568
99
28
66
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]
 

Xem nhiều

Webketoan Zalo OA