Nhờ giúp em lọc số liệu như hình. (4 người xem)

[MeKbang]

Chào cả nhà!
Em bỏ excel lâu quá, nên giờ phải mò lại. Rất mong các anh/chị hỗ trợ!
Em cần lọc các ô dữ liệu màu vàng đưa về 1 cột khác loại bỏ các giá trị không bôi vàng. Rất mong chỉ giáo ạ!
Cảm ơn cả nhà!

 

[Nguyễn Hồng Quang]

Bạn dùng advand Filter/ lọc màu vàng rồi copy paste ra vùng mong muốn

 

[phulien1902]

Chào cả nhà!
Em bỏ excel lâu quá, nên giờ phải mò lại. Rất mong các anh/chị hỗ trợ!
Em cần lọc các ô dữ liệu màu vàng đưa về 1 cột khác loại bỏ các giá trị không bôi vàng. Rất mong chỉ giáo ạ!
Cảm ơn cả nhà!

Bạn có thể dùng phương pháp AutoFilter, cách làm như sau:
Giả sử các cột dữ liệu của bạn bắt đầu từ cột A
1. Cách thủ công:
+Quét chọn vùng dữ liệu của bạn
+Tại cột C , vào Data -----> AutoFilter ---> Blanks
+ Copy vùng dữ liệu cột A( màu vàng) tới cột bạn muốn
2. Dùng Macro:

Sub Macro1()
    Range("$A$1:$d$9").Select
    Selection.AutoFilter 
   With ActiveSheet 
   .Range("$A$1:$d$9").AutoFilter Field:=3, Criteria1:=" " 
   .Range("$A$2:$d$9").SpecialCells(12).Copy Range("C11")
    End With
End Sub

Bạn tham khảo File đính kèm

 

[MeKbang]

Cảm ơn bạn phulien1902 đã hỗ trợ. Tuy nhiên, có cách nào sử dụng công thức để lọc thông tin không bạn?
Vì mình luôn luôn có 1 sheet database như hình (không bôi vàng, mình chỉ bôi để nhờ mọi người xem dùm thôi). Sau đó mình cần lọc các ô bôi vàng sang 1 sheet khác mà bỏ qua các ô không bôi vàng. Mình muốn sheet lọc tự động cập nhật mỗi khi sheet database thay đổi.
Nhờ bạn hỗ trợ!

 

[befaint]

Cảm ơn bạn phulien1902 đã hỗ trợ. Tuy nhiên, có cách nào sử dụng công thức để lọc thông tin không bạn?
Vì mình luôn luôn có 1 sheet database như hình (không bôi vàng, mình chỉ bôi để nhờ mọi người xem dùm thôi). Sau đó mình cần lọc các ô bôi vàng sang 1 sheet khác mà bỏ qua các ô không bôi vàng. Mình muốn sheet lọc tự động cập nhật mỗi khi sheet database thay đổi.
Nhờ bạn hỗ trợ!

(1) Gửi file lên. Cái hình đó không làm ăn được gì.

(2) Điều kiện lọc là gì? (Tức là điều kiện nào để bạn tô màu vàng cho các ô ở cột [Card Number])
Kết quả sau lọc trình bày ở sheet khác như thế nào?

 

[MeKbang]

(1) Gửi file lên. Cái hình đó không làm ăn được gì.

(2) Điều kiện lọc là gì? (Tức là điều kiện nào để bạn tô màu vàng cho các ô ở cột [Card Number])
Kết quả sau lọc trình bày ở sheet khác như thế nào?

Xin lỗi, mình gửi file đính kèm!
Mình cần sheet1 (2) tự động update thông tin từ sheet Lost-.
Cảm ơn cả nhà!

 

[befaint]

Xin lỗi, mình gửi file đính kèm!
Mình cần sheet1 (2) tự động update thông tin từ sheet Lost-.
Cảm ơn cả nhà!

mình chỉ bôi để nhờ mọi người xem dùm thôi

Điều kiện lọc là gì?

 

[quocgiacan]

Điều kiện lọc là gì?

Anh nghĩ chắc vầy quá

Sheet1 (2):

A4=IFERROR(INDEX('LOST-REISSUED'!$A$2:$A$20,MATCH(0,INDEX(COUNTIF($A$3:A3,'LOST-REISSUED'!$A$2:$A$20)+('LOST-REISSUED'!$C$2:$C$20<>"")+('LOST-REISSUED'!$A$2:$A$20=""),),0)),"")
B4=IFERROR(INDEX('LOST-REISSUED'!$F$2:$F$20,MATCH('Sheet1 (2)'!$A4,'LOST-REISSUED'!$A$2:$A$20,0)-1),"")
C4=IFERROR(INDEX('LOST-REISSUED'!$D$2:$D$20,MATCH('Sheet1 (2)'!$A4,'LOST-REISSUED'!$A$2:$A$20,0)-1),"")
D4=IFERROR(INDEX('LOST-REISSUED'!$C$2:$C$20,MATCH('Sheet1 (2)'!$A4,'LOST-REISSUED'!$A$2:$A$20,0)-1),"")

Hên xui

Chúc em ngày vui.

 

[MeKbang]

Điều kiện lọc là gì?

Điều kiện lọc: Các ô cần lọc là các ô thuộc hàng chỉ có giá trị tại cột A và B, cột C là rỗng.

 

[befaint]

Anh nghĩ chắc vầy quá

Hên xui

Chúc em ngày vui.

Chắc chắn là hên rồi đó anh,

Đôi khi cái vỏ quan trọng hơn cái bên trong cái vỏ anh ạ

 

[phulien1902]

Xin lỗi, mình gửi file đính kèm!
Mình cần sheet1 (2) tự động update thông tin từ sheet Lost-.
Cảm ơn cả nhà!

Thêm 1 cách để bạn tham khảo:

Sub abc()
    Sheets("LOST-REISSUED").Range("$A$1:$H$9").Select
    Selection.AutoFilter
    With Sheets("LOST-REISSUED")
        .Range("$A$1:$H$9").AutoFilter Field:=3, Criteria1:=" "
        .Range("$A$2:$H$9").SpecialCells(12).Copy Sheets("Sheet2").Range("A4")
        .AutoFilterMode = False
        .Range("$A$1:$I$9").AutoFilter Field:=7, Criteria1:="1"
        .Range("$F$2:$F$9").SpecialCells(12).Copy Sheets("Sheet2").Range("B4")
        .Range("$d$2:$d$9").SpecialCells(12).Copy Sheets("Sheet2").Range("c4")
        .Range("$c$2:$c$9").SpecialCells(12).Copy Sheets("Sheet2").Range("d4")
        .AutoFilterMode = False
    End With
End Sub

 

[MeKbang]

Cảm ơn bạn Quocgiacan, Phulien1902 và Befaint nhiều!