-
10-26-2013, 02:04 PM #1Junior Member
- Ngày tham gia
- Dec 2015
- Bài viết
- 0
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:View more random threads:
- [ ? ] Đánh số thứ tự theo điều kiện
- Tin học & Kế toán
- Excell 2007 Chuỗi phức tạp - Nhờ các cao thủ giúp!
- Lọc danh sách trong Excel
- Lỗi 1327 khác phục như thê nào
- Chuyển dữ liệu từ excel sang word!
- Giúp tạo khoảng cách số trong excel??
- Cách lập sổ sách kế toán theo QĐ 48 trên Excel
- Hàm DIC?
- Chỉnh font chữ mặc định khi tạo mới 1 file excel 2007 như nào ạ?
-
10-26-2013, 03:34 PM #2Junior Member
- Ngày tham gia
- Nov 2015
- Bài viết
- 0
Ðề: Xóa những dòng trùng nhau trong excel 2007
Gửi bởi thuthao89
-
11-07-2013, 06:11 PM #3Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: Xóa những dòng trùng nhau trong excel 2007
Gửi bởi thuthao89
-
11-11-2013, 03:53 PM #4Silver member
- Ngày tham gia
- Mar 2016
- Bài viết
- 303
Ðề: 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
gel titan gold là gì? Titan Gel là sản phẩm Hỗ trợ sức khỏe sinh lý ở nam giới được sinh sản bởi công ty Hendell LLC. Đây là một thương hiệu đến từ nước Nga và đang nhận được không ít sự quan tâm...
Titan gel giúp cho chàng có kích cỡ dương vật "cỡ bự