Xóa những dòng trùng nhau trong excel 2007

[thuthao89]

Chuyện là em đang gặp vấn đề với file của em, có tới mấy ngàn cái dòng trùng nhau cần phải xóa, nhưng mà mỗi dòng trùng đó lại có những số liệu về giá thành khác nhau, em chỉ được lấy cái giá thành lớn nhất.
Bác nào có kinh nghiệm làm cái này thì giúp em với chứ tình hình là cuối tuần này nằm nhà đến thứ 2 chắc cũng chưa xong quá

 

[slover]

Ðề: Xóa những dòng trùng nhau trong excel 2007

Chuyện là em đang gặp vấn đề với file của em, có tới mấy ngàn cái dòng trùng nhau cần phải xóa, nhưng mà mỗi dòng trùng đó lại có những số liệu về giá thành khác nhau, em chỉ được lấy cái giá thành lớn nhất.
Bác nào có kinh nghiệm làm cái này thì giúp em với chứ tình hình là cuối tuần này nằm nhà đến thứ 2 chắc cũng chưa xong quá

ko hiểu vấn đề b hỏi cho lắm.b có thể check file đó qua mình xe m dc ko? (thanhlocqb@gmail.com)

 

[be09]

Ðề: Xóa những dòng trùng nhau trong excel 2007

Chuyện là em đang gặp vấn đề với file của em, có tới mấy ngàn cái dòng trùng nhau cần phải xóa, nhưng mà mỗi dòng trùng đó lại có những số liệu về giá thành khác nhau, em chỉ được lấy cái giá thành lớn nhất.
Bác nào có kinh nghiệm làm cái này thì giúp em với chứ tình hình là cuối tuần này nằm nhà đến thứ 2 chắc cũng chưa xong quá

Cái này làm thủ công, cần dùng cột phụ và dùng auto Fillter là thực hiện nhanh chóng, nếu Up load File lên thì anh làm trực tiếp rồi hướng dẫn thì mới dễ hiểu (nếu File chứa khoảng 20.000 dòng thì chỉ thực hiện chưa đầy 5 phút) không có File nên không biết hướng dẫn bằng cách nào.

 

[Wind_Flower]

Ðề: Xóa những dòng trùng nhau trong excel 2007

Sub RemoveDupes()



'Add extra Column, "A" becomes "B"

Columns(1).EntireColumn.Insert



'Filter out duplicates and copy unique list to "A"

Range("B1", Range("B65536").End(xlUp)).AdvancedFilter _

Action:=xlFilterCopy, CopyToRange:=Range("A1"), Unique:=True



'Add extra Column, "B" becomes "A"

Columns(2).EntireColumn.Delete



End Sub

hoặc là

Sub DeleteRows()

With ActiveSheet
Set Rng = Range("A1", Range("B1").End(xlDown))
Rng.RemoveDuplicates Columns:=Array(1, 2), Header:=xlYes
End With

End Sub