Công thức lấy giá trị duy nhất

[bebeen]

Chào các A/C của GPE!
Lâu lâu rồi em không động chạm vào các công thức để lọc duy nhất này. Hôm nay có tình huống cần làm nên em đã loay hoay mãi từ sáng đến giờ vẫn chưa được.
Vậy em đưa lên đây nhờ các cao thủ giúp em nhé!
Chi tiết ở file đính kèm dưới.

 

[n0thing1988]

Chào các A/C của GPE!
Lâu lâu rồi em không động chạm vào các công thức để lọc duy nhất này. Hôm nay có tình huống cần làm nên em đã loay hoay mãi từ sáng đến giờ vẫn chưa được.
Vậy em đưa lên đây nhờ các cao thủ giúp em nhé!
Chi tiết ở file đính kèm dưới.

Ko cần công thức nào cả
Bôi đen vùng màu vàng
Vào mục data/Remove Duplicates/OK.

 

[hpkhuong]

chào các a/c của gpe!
Lâu lâu rồi em không động chạm vào các công thức để lọc duy nhất này. Hôm nay có tình huống cần làm nên em đã loay hoay mãi từ sáng đến giờ vẫn chưa được.
Vậy em đưa lên đây nhờ các cao thủ giúp em nhé!
Chi tiết ở file đính kèm dưới.

 h7 =index($e$7:$e$21,match(0,index(countif($h$6:$h6,$e$7:$e$21),),0))

 

[vcd102]

Đúng cái mình cần đây rồi, cảm ơn bạn rất nhiều! ^_^

 

[bluedragon0307]

 h7 =index($e$7:$e$21,match(0,index(countif($h$6:$h6,$e$7:$e$21),),0))

Cho mình hỏi, mình áp dụng công thức này với khoảng hơn 2000 dòng thì máy phải tính toán rất lâu và chậm, có công thức nào nhẹ hơn nhanh hơn không nhỉ? Cám ơn các bạn!

 

[giaiphap]

Bạn thử cái này xem thế nào, còn chậm hay không?

 

[bluedragon0307]

Bạn thử cái này xem thế nào, còn chậm hay không?

Cám ơn bạn, có vẻ là ổn. Mình muốn hỏi thêm là nếu muốn cho macro trên tự chạy khi thay đổi giá trị 1 cell chỉ định trc thì viết công thức như nào nhỉ? Hiện tại mình viết công thức như này thì cứ có cell nào thay đổi là macro đều tự chạy hết. Cell J2 là ô cell mình sẽ thay đổi, các value sẽ điền trong ô J2 là để rỗng và từ 1 đến 12

Private Sub Worksheet_Change(ByVal Target As Range)
J2 = ActiveCell.Address
    ActiveSheet.Range("$A$10:$K$2300").AutoFilter Field:=10, Criteria1:="<>"
End Sub

Cám ơn bạn.