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

[boccoom1368]

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á :thayghe:

View more random threads:

• Công thức cho xuất nhập FIFO
• Hỏi sử dụng công thức excel trên phần mềm kế toán với excel
• Thứ tự ngày tháng đảo lộn
• công thức excel kt
• Những phím tắt vô giá trong Excel
• cách sử dụng combo box
• nhờ hướng dẫn viết chữ trong ô
• Chuyển từ có dấu sang ko dấu trong excel
• Không insert được sheet
• Tìm TK đối ứng với TK Nợ 111 trên bảng tính

[crystal150986]

Ðề: 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á :thayghe:

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)

[nguyenanhthuoc]

Ðề: 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á :thayghe:

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.

[thanhluantm]

Ðề: 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