Cần giúp đỡ lọc và chép dữ liệu (1 người xem)

[toidjtjmtoi]

file đính kèm bên dưới

 

[HungQuoc49]

file đính kèm bên dưới

e1=iferror(indirect("b"&sumproduct(large(($a$1:$a$13=$d$1)*row($a$1:$a$13),countif($a$1:$a$13,$d$1)-row(e1:e1)+1))),"")

 

[toidjtjmtoi]

e1=iferror(indirect("b"&sumproduct(large(($a$1:$a$13=$d$1)*row($a$1:$a$13),countif($a$1:$a$13,$d$1)-row(e1:e1)+1))),"")

Bạn ơi không được , không biết lỗi gì
Hoặc bạn nào có thể sửa giúp mình cái code này từ chọn chữ sang chọn ô không

Sub ghi()

ActiveSheet.Range("$A$1:$A$14").AutoFilter Field:=1, Criteria1:="=Âm trần"
, Operator:=xlAnd
End Sub

Thay cái chỗ mình bôi đỏ đó thành 1 ô cố định

 

[chuot0106]

Bạn ơi không được , không biết lỗi gì
Hoặc bạn nào có thể sửa giúp mình cái code này từ chọn chữ sang chọn ô không

Sub ghi()

ActiveSheet.Range("$A$1:$A$14").AutoFilter Field:=1, Criteria1:="=Âm trần"
, Operator:=xlAnd
End Sub

Thay cái chỗ mình bôi đỏ đó thành 1 ô cố định

Sub ghi()
ActiveSheet.Range("$A$1:$A$14").AutoFilter Field:=1, [COLOR=#ff0000]Criteria1:=[D1][/COLOR]
, Operator:=xlAnd
End Sub

Thử thế này xem sao?

 

[HungQuoc49]

Bạn ơi không được , không biết lỗi gì
Hoặc bạn nào có thể sửa giúp mình cái code này từ chọn chữ sang chọn ô không

Sub ghi()

ActiveSheet.Range("$A$1:$A$14").AutoFilter Field:=1, Criteria1:="=Âm trần"
, Operator:=xlAnd
End Sub

Thay cái chỗ mình bôi đỏ đó thành 1 ô cố định

Gửi file đính kèm
---
Dùng công thức của bài 2

 

[khuongvietphong]

Bạn ơi không được , không biết lỗi gì

Công thức đúng rồi chắc do bạn không kết thúc bằng ctrl+shift+enter

Bạn cũng có thể dùng CT này cho ô E1: =IFERROR(OFFSET($B$1,SMALL(IF($A$1:$A$13=$D$1,ROW($A$1:$A$13)-1,""),ROW(1:1)),0),"")

Ngắn hơn CT trên 1 chút và nhớ Cũng kết thúc bằng ctr=shift+enter nhél

 

[Let'GâuGâu]

file đính kèm bên dưới

nếu dữ liệu được xếp như trong file

E1=IF(ROW()>COUNTIF($A$1:$A$13,$D$1),"",OFFSET($B$1,MATCH($D$1,$A$1:$A$13,0)+ROW()-2,))

 

[ngocnv_hn88]

Bạn thử lệnh đơn giản này để giải quyết bài toán của bạn xem sao nhé!
F1==IF($D$1=A1,B1,"")
Kéo công thức từ F1 đến F13.