Lọc theo cột từ mảng sao cho những dòng trùng nhau chỉ xuất hiện 1 lần

[samac99999]

Mình mới nhập môn Excel nên còn bở ngỡ quá!

Có 1 bảng tính nhiều cột và có những ô trong 1 cột trùng nhau. Vậy làm cách nào để lọc và xuất ra 1 cột khác, nhưng nếu những giá trị trùng nhau chỉ xuất hiện 1 dòng thôi.
Các bạn giúp mình với nhé. Cảm ơn rất nhiều!

Các bạn mở file đính kèm nhé.

 

[ptlong04x1]

Cái này dùng Advanced Filter là tuyệt nhất, xem File nhé.

 

[tam8678]

Nhờ các bạn giải đáp

Cái này dùng Advanced Filter là tuyệt nhất, xem File nhé.

---
Tôi cố gắng làm như bạn ptong04x12hướng dẫn, chỉ khác nơi nhận kết quả và dữ liệu cùng 1 cột nhưng không sao ra ra được kết quả, rất mong các bạn xem và giải đáp giúp.
Đính kèm file
Cám ơn các bạn.
(KGởi các Smod, Mod: dạo này không hiểu sao lên mạng khó khăn quá, báo lỗi liên tục )

 

[ptlong04x1]

---
Tôi cố gắng làm như bạn ptong04x12hướng dẫn, chỉ khác nơi nhận kết quả và dữ liệu cùng 1 cột nhưng không sao ra ra được kết quả, rất mong các bạn xem và giải đáp giúp.
Đính kèm file
Cám ơn các bạn.
(KGởi các Smod, Mod: dạo này không hiểu sao lên mạng khó khăn quá, báo lỗi liên tục )

Nếu vùng dữ liệu ở cột A thì không thể copy to 1 ô của cột A được anh ạ (đây là đặc điểm của Advanced Filter), nếu muốn, anh chọn Copy to B1 rồi Filter sau đó copy sang A1.

 

[Po_Pikachu]

Bạn quên nhấn vào nút "unique records only" thì sẽ không ra đúng là phải rùi.
Thử lại xem.
Thân.

 

[tam8678]

Nếu vùng dữ liệu ở cột A thì không thể copy to 1 ô của cột A được anh ạ (đây là đặc điểm của Advanced Filter), nếu muốn, anh chọn Copy to B1 rồi Filter sau đó copy sang A1.

---
Nếu là đặc điểm của Advanced Filter, thì khi hướng dẩn có cần nêu rõ không ?
Trường hợp anh cần lại cứ rơi vào những đặc điểm như thế
Thân chào nhé.
---
To : Po_Pikachu : có nhấn nút Unique ..., bạn thử xem
Thân

 

[ptlong04x1]

---
Nếu là đặc điểm của Advanced Filter, thì khi hướng dẩn có cần nêu rõ không ?
Trường hợp anh cần lại cứ rơi vào những đặc điểm như thế
Thân chào nhé.

Nhưng mà nếu anh Copy to vào 1 ô ở cột A nằm dưới vùng dữ liệu, ví dụ [A20] chẳng hạn thì lại được, AF xoá trắng dữ liệu dưới vùng Copy to trước khi hiện kết quả, hehe.

 

[tam8678]

Nhưng mà nếu anh Copy to vào 1 ô ở cột A nằm dưới vùng dữ liệu, ví dụ [A20] chẳng hạn thì lại được, AF xoá trắng dữ liệu dưới vùng Copy to trước khi hiện kết quả, hehe.

---
Anh biết, anh chỉ thắc mắc "Copy to vào 1 ô ở cột A nằm trên vùng dữ liệu" thôi.
Nếu là đặc điểm thì anh OK.

 

[ptlong04x1]

Anh có muốn xài code không, nếu có anh đưa file lên em viết code.

 

[ndu96081631]

---
Anh biết, anh chỉ thắc mắc "Copy to vào 1 ô ở cột A nằm trên vùng dữ liệu" thôi.
Nếu là đặc điểm thì anh OK.

Anh muốn copy vào cùng cột vẫn không có vấn đề đâu
- Vào menu Data\Filter\Advanced Filter
- Mục Action anh chọn Filter the list, in - place (chứ không chọn Copy to...)
- List Range là vùng data nguồn
- Check vào Unique Records only
OK 1 nhát, rồi copy dử liệu sau khi lọc, paste vào cell A1 là xong
Và nói chung, đã làm được bằng tay thì code đương nhiên cũng làm được

 

[tam8678]

Anh muốn copy vào cùng cột vẫn không có vấn đề đâu
- Vào menu Data\Filter\Advanced Filter
- Mục Action anh chọn Filter the list, in - place (chứ không chọn Copy to...)
- List Range là vùng data nguồn
- Check vào Unique Records only
OK 1 nhát, rồi copy dử liệu sau khi lọc, paste vào cell A1 là xong
Và nói chung, đã làm được bằng tay thì code đương nhiên cũng làm được

---
Cám ơn chú và bạn ptlong04x1 nhiều. Anh đã làm cụ thể theo hướng dẫn của chú, cho anh được hỏi?
Anh trích lọc từ sheet1, quăng qua sheet2 bắt đầu từ cell A2000 => làm theo chú hướng dẫn => ok. Nhưng dữ liệu từ cell A2000:A... thì code viết như thế nào và khi dữ liệu đang filter thì copy,paste vào cellA1 ra làm sao?
Mục đích: sau khi nhấn nút từ sheet1 ( sau khi trích lọc duy nhất còn nhiều việc xử lý ), mở sheet2 => nhìn vào kết quả thể hiện từ cell A1 ( xóa từ cell A2000:A...)
Mong tin chú và bạn ptlong04x1.

 

[ndu96081631]

---
Cám ơn chú và bạn ptlong04x1 nhiều. Anh đã làm cụ thể theo hướng dẫn của chú, cho anh được hỏi?
Anh trích lọc từ sheet1, quăng qua sheet2 bắt đầu từ cell A2000 => làm theo chú hướng dẫn => ok. Nhưng dữ liệu từ cell A2000:A... thì code viết như thế nào và khi dữ liệu đang filter thì copy,paste vào cellA1 ra làm sao?
Mục đích: sau khi nhấn nút từ sheet1 ( sau khi trích lọc duy nhất còn nhiều việc xử lý ), mở sheet2 => nhìn vào kết quả thể hiện từ cell A1 ( xóa từ cell A2000:A...)
Mong tin chú và bạn ptlong04x1.

Ai chà... Em khó hình dung quá anh ơi
Sao anh không cho file lên (ghi rõ kết quả anh cần vào luôn)

 

[tam8678]

Ai chà... Em khó hình dung quá anh ơi
Sao anh không cho file lên (ghi rõ kết quả anh cần vào luôn)

---
File "Lằng nhằng" lắm, anh "cóp nhặt" từng phần, chú giúp anh phần này trước nhé:

Nhưng dữ liệu từ cell A2000:A.... thì code trích lọc duy nhất (filter the lits, in-place) viết như thế nào và khi đó dữ liệu đang ở dạng filter thì copy vùng được trích lọc từ A2000:A....paste vào cellA1 viết ra làm sao?

 

[ptlong04x1]

---
Nhưng dữ liệu từ cell A2000:A.... thì code trích lọc duy nhất (filter the lits, in-place) viết như thế nào và khi đó dữ liệu đang ở dạng filter thì copy vùng được trích lọc từ A2000:A....paste vào cellA1 viết ra làm sao?

Đọc đoạn này, em cũng...không hiểu luôn, anh nói rõ chút nữa đi, cảm giác đang lâng lâng

 

[tam8678]

Đọc đoạn này, em cũng...không hiểu luôn, anh nói rõ chút nữa đi, cảm giác đang lâng lâng

---
Anh viết như thế này bạn xem có đúng không ? ( thiệt khổ):

 Range("A2000:A" & [A10000].End(xlUp).Row).AdvancedFilter Action:=xlFilterInPlace, Unique:=True
 Range("A2000:A" & [A10000].End(xlUp).Row).Copy Range("A1)

---
Ráng hiểu dùm đi
---
???
Anh đang vướng chổ hàm sumif, nếu được bạn hướng dẫn dùm nhé

 

[ptlong04x1]

Anh viết như thế này bạn xem có đúng không ? ( thiệt khổ):

 Range("A2000:A" & [A10000].End(xlUp).Row).AdvancedFilter Action:=xlFilterInPlace, Unique:=True
 Range("A2000:A" & [A10000].End(xlUp).Row).Copy Range("A1)

---
Ráng hiểu dùm đi

Theo em nên viết vậy cho gọn :

    With Range("A10:A" & [A10000].End(xlUp).Row)
        .AdvancedFilter xlFilterInPlace, , , True
        .Copy [A1]
    End With

Anh đang vướng chổ hàm sumif, nếu được bạn hướng dẫn dùm nhé

Anh xem link này :

http://www.giaiphapexcel.com/forum/showpost.php?p=58877&postcount=38

 

[tam8678]

Theo em nên viết vậy cho gọn :

    With Range("A10:A" & [A10000].End(xlUp).Row)
        .AdvancedFilter xlFilterInPlace, , , True
        .Copy [A1]
    End With

Anh xem link này :

http://www.giaiphapexcel.com/forum/showpost.php?p=58877&postcount=38

---
Không ptlong04x1 ơi, vướng trong VBA, xem file đính kèm và hướng dẫn giúp nhé

 

[ptlong04x1]

---
Không ptlong04x1 ơi, vướng trong VBA, xem file đính kèm và hướng dẫn giúp nhé

Sub Macro1()
   Dim Rng As Range
   Set Rng = Range("A2:A" & [A65536].End(xlUp).Row)
   [F2].Formula = "=SUMIF(" & Rng.Address & ",$E$2," & Rng.Offset(, 1).Address & ")"
End Sub

Nhập liệu xong anh chạy lại code là được.

 

[ptlong04x1]

Một cách khác :

Sub Macro1()
    eR = [A65536].End(xlUp).Row
    [F2].FormulaR1C1 = "=SUMIF(R2C1:R" & eR & "C1,RC[-1],R2C2)"
End Sub

Nếu anh muốn hàm tự cập nhật thì đưa sub vào sự kiện Worksheet_Change nữa là được.

 

[tam8678]

Một cách khác :

Sub Macro1()
    eR = [A65536].End(xlUp).Row
    [F2].FormulaR1C1 = "=SUMIF(R2C1:R" & eR & "C1,RC[-1],R2C2)"
End Sub

---

R2C2 : Không hiểu chổ này bạn ơi, giải thích giúp nhé
( Đúng đang cần )