Xóa dữ liệu trùng lặp (2 người xem)

[sally ngo]

Chào cả nhà,

Mình có file excel mà các dữ liệu dòng bị duplicated với dòng trên (data của mình có khoảng 1000 dòng).

Giờ mình muốn xóa dữ liệu duplicated đi chỉ dữ lại 1.

Bác nào chỉ giúp mình cách xóa nhanh chóng đc ko?

Hiện tại mình đang làm thủ công, xóa one by one.

Mình cảm ơn !

 

[Nguyễn Hồng Quang]

Chào cả nhà,

Mình có file excel mà các dữ liệu dòng bị duplicated với dòng trên (data của mình có khoảng 1000 dòng).

Giờ mình muốn xóa dữ liệu duplicated đi chỉ dữ lại 1.

Bác nào chỉ giúp mình cách xóa nhanh chóng đc ko?

Hiện tại mình đang làm thủ công, xóa one by one.

Mình cảm ơn !

Bạn sử dụng chức năng Remove Duplicates của excel nhé
Chọn từ cột B đến dòng cuối. Vào tab Data chọn Remove Duplicates. Ấn OK kết quả

 

[sally ngo]

Bạn sử dụng chức năng Remove Duplicates của excel nhé
Chọn từ cột B đến dòng cuối. Vào tab Data chọn Remove Duplicates. Ấn OK kết quả

Có dữ liệu tên bị trùng nhưng lệnh gửi tiền khác nhau, nên nếu mình dùng lệnh remove như bạn nói nó sẽ xóa cả lệnh gửi tiền khác của mình.
Thực tế mình chỉ muốn remove cái lệnh gửi tiền trùng thôi, chứ ko phải remove cái tên bị trùng.

 

[Nguyễn Hồng Quang]

Có dữ liệu tên bị trùng nhưng lệnh gửi tiền khác nhau, nên nếu mình dùng lệnh remove như bạn nói nó sẽ xóa cả lệnh gửi tiền khác của mình.
Thực tế mình chỉ muốn remove cái lệnh gửi tiền trùng thôi, chứ ko phải remove cái tên bị trùng.

Nếu trùng tên mà khác ngày gửi, khác số tiền. Lệnh sẽ không remove.

 

[XuanTruong1958]

Chọn Từ A2 đến dòng cuối cột Số Tiền, Vào tab Data chọn Remove Duplicates, tích vào Số tiền và Ngày Gửi trong bảng hiện ra. Nhấn Ok. xem kết quả

 

[phulien1902]

Chào cả nhà,

Mình có file excel mà các dữ liệu dòng bị duplicated với dòng trên (data của mình có khoảng 1000 dòng).

Giờ mình muốn xóa dữ liệu duplicated đi chỉ dữ lại 1.

Bác nào chỉ giúp mình cách xóa nhanh chóng đc ko?

Hiện tại mình đang làm thủ công, xóa one by one.

Mình cảm ơn !

1 cách:

Sub abc()
    Dim i, LR
    LR = Cells(Rows.Count, 2).End(3).Row
    Range("E2:E" & LR).FormulaR1C1 = "=IF(AND(RC[-3]=R[-1]C[-3],RC[-2]=R[-1]C[-2],RC[-1]=R[-1]C[-1]),""Duplicated"","""")"
    With Cells(1).CurrentRegion
        .AutoFilter 5, "Duplicated"
       .Offset(1).Resize(, 5).EntireRow.Delete xlUp
       .AutoFilter
    End With
    Columns(5).ClearContents
End Sub

 

[sally ngo]

Em cảm ơn cả nhà.

Cả nhà cho em hỏi có công thức nào chèn thêm số vào cuối hoặc đầu các con số không nhỉ?

Ví dụ em có một số : 1234 - Giờ e muốn chèn 3 hoặc 4 số ở cuối thành 1234728.

Em chỉ đưa 1 ví dụ, chứ thực ra e có 1 list 1000 số lận nên muốn hỏi cách chèn số vào để kéo cho nhanh.

Em cảm ơn !

 

[befaint]

chứ thực ra e có

Thực ra mình có cái gì thì mình gửi lên đây thực luôn này. Mà thực ra thì chẳng thấy bạn gửi nó lên đây nên thực ra không ai biết bạn thực ra có cái gì.

A1=1234
B1=A1&"728"
C1=1234*10^3+728