Cách khử dử liệu trùng nhau trong một cột?

[thamkt_5582]

E mong các a chị giúp nhé. Em muốn khử dữ liệu trùng để điếm số HĐ ửu dụng tại Cty vì hàng tháng BC thuế rất nhiều HĐ. Mong các a chị giúp nhé. cám ơn nhiều. em có gửi kèm file mong các anh chị xem giúp .

 

[khoavu87]

---> Quy trình như sau:
- Vào menu Data\Filter\Advanced Filtera) Mục Action chọn Filter the lis, in-place
b) Đặt con trỏ vào khung List range rồi quét chọn cột nào đó mà bạn muốn lọc (chỉ quét cột có chứa dử liệu trùng, không quét toàn bộ bảng tính)
c) Khung Criteria range và Copy to: không dùng
d) Check vào mục Unique Records only
- Sau khi bấm OK, bảng tính sẽ được lọc ra với các phần tử duy nhất ---> Việc còn lại của bạn là copy chúng sang 1 nơi nào đó tùy thích

 

[logica]

E mong các a chị giúp nhé. Em muốn khử dữ liệu trùng để điếm số HĐ ửu dụng tại Cty vì hàng tháng BC thuế rất nhiều HĐ. Mong các a chị giúp nhé. cám ơn nhiều. em có gửi kèm file mong các anh chị xem giúp .

Bạn thử dùng chức năng Advanced Filter xem sao!

 

[viehoai]

E mong các a chị giúp nhé. Em muốn khử dữ liệu trùng để điếm số HĐ ửu dụng tại Cty vì hàng tháng BC thuế rất nhiều HĐ. Mong các a chị giúp nhé. cám ơn nhiều. em có gửi kèm file mong các anh chị xem giúp .

Bạn dùng chuong trình trích của anh TuanVNUNI thấy hay. Tôi dùng thử copy từ Advanced Filter nhưng không hiểu sao vầ vận có một hạng mục lại trùng nhau tôi đã kiểm tra thử sau các hạng mục đó có bị nhập thêm ký tự trống không nhưng không có. Tôi dùng chương trình A-Tools thì OK.
DOWNLOAD A-Tools v4.1.1.0

 

[ndu96081631]

Bạn dùng chuong trình trích của anh TuanVNUNI thấy hay. Tôi dùng thử copy từ Advanced Filter nhưng không hiểu sao vầ vận có một hạng mục lại trùng nhau tôi đã kiểm tra thử sau các hạng mục đó có bị nhập thêm ký tự trống không nhưng không có.

Điều đầu tiên bạn cần làm là xem lại bài học về Advanced Filter ---> Khả năng bạn sai nhiều hơn chứ Advanced Filter thì khó mà sai được!

 

[buivankiet]

bạn thử sử dụng code sau

Sub xoatrung()

sheets("sheet1).activate
For Each CELL In [b6:b11]
ActiveWorkbook.Names.Add Name:="OTAM", RefersToR1C1:=CELL
If [OTAM].Value <> "" And Evaluate("=COUNTIF(b6:b11,OTAM)") > 1 Then
[OTAM].Select
Selection.EntireRow.Delete
ActiveWorkbook.Names("OTAM").Delete
End If
Next

End Sub

( đang ở excel copy code trên bấm atl+f11 chọn insert module , dán code trên vào module , mỗi lần muốn chạy code này bấm atl+f8, chọn macro " xoatrung"