lọc và xóa bớt các giá trị trùng nhau

[quanthienhan]

[WARNING1]Em có mảng dữ liệu bên...giờ em muốn lọc và xóa bớt các giá trị trùng nhau, để mỗi giá trị chỉ xuất hiện 1 lần thôi....vì dữ liệu em hay thay đổi ,Em xin code tích hợp vô nút nhấn như bên, để mỗi khi giá trị thay đổi, em chỉ việc ấn vô nút LỌC...thì giá trị mới tự lọc...vùng dữ liệu của Em chỉ khoảng như vậy thôi...Em xin chân thành cảm ơn các Anh Chị nhiều...[/WARNING1]

 

[hienanh0803]

đưa file lên đi bạn, có file đính kém dễ làm hơn

 

[chien276]

Click vào Data chọn Remove Duplicates
Good Luck !

 

[doatmenhhon]

Bạn xem file này có đúng ý bạn không?

 

[Lê Duy Thương]

[WARNING1]Em có mảng dữ liệu bên...giờ em muốn lọc và xóa bớt các giá trị trùng nhau, để mỗi giá trị chỉ xuất hiện 1 lần thôi....vì dữ liệu em hay thay đổi ,Em xin code tích hợp vô nút nhấn như bên, để mỗi khi giá trị thay đổi, em chỉ việc ấn vô nút LỌC...thì giá trị mới tự lọc...vùng dữ liệu của Em chỉ khoảng như vậy thôi...Em xin chân thành cảm ơn các Anh Chị nhiều...[/WARNING1]

Thật ra không phải là ko có giải pháp. Nhưng bạn xem lại bài của mình nhé. Bạn nên hiểu rằng khi nào chúng ta nên dùng cảnh báo..

 

[hpkhuong]

Lạy thánh đào mộ. Bài từ 30/7/2015. Vào lúc 10:17 PM 22/09/2015 có người đào lên. Xong phía sau là.......các bạn trả lời bài khí thế luôn. ( Bài này chắc là chủ topic đi du lịch mấy tháng rồi....)

 

[nhvu02]

Tôi có file nay các bạn giúp với, mò mãi không được. Sau khi chép dữ liệu vào sheet"Start"
1/ Tôi muốn toàn bộ dữ liêu dòng Loại Hình "SX và KD" của cột ''Loại Hình" sẽ được phân ra 2 "sheet KD và SX" khác nhau.
2/ Các "Số trùng (part)" trong cột "Part No" sẽ được gộp lại thành 1dòng với tổng số lượng và trị giá của part đó luôn.
Cám ơn các bạn nhiều lắm.

 

[khonghoithinguhocdungchem]

code này cho nhanh nó tự động luôn bạn còn muốn tạo nút thì sửa dòng đâu thành sub nutloc gi gi đó:
Private Sub Worksheet_Activate()
Dim Nguon(), Kq(), i&, k&
Nguon = Sheet1.Range(Sheet1.[A3], Sheet1.[A65536].End(3)).Value
ReDim Kq(1 To UBound(Nguon, 1), 1 To 1)
With CreateObject("scripting.dictionary")
For i = 1 To UBound(Nguon, 1)
If Not .exists(Nguon(i, 1)) Then
k = k + 1
.Add Nguon(i, 1), ""
Kq(k, 1) = Nguon(i, 1)
End If
Next
End With
Range("A4").Resize(k * 3) = Kq
End Sub

 

[hpkhuong]

code này cho nhanh nó tự động luôn bạn còn muốn tạo nút thì sửa dòng đâu thành sub nutloc gi gi đó:
Private Sub Worksheet_Activate()
Dim Nguon(), Kq(), i&, k&
Nguon = Sheet1.Range(Sheet1.[A3], Sheet1.[A65536].End(3)).Value
ReDim Kq(1 To UBound(Nguon, 1), 1 To 1)
With CreateObject("scripting.dictionary")
For i = 1 To UBound(Nguon, 1)
If Not .exists(Nguon(i, 1)) Then
k = k + 1
.Add Nguon(i, 1), ""
Kq(k, 1) = Nguon(i, 1)
End If
Next
End With
Range("A4").Resize(k * 3) = Kq
End Sub

Oh. Anh ấy đã đạt tới trình đi trả lời bài cho người khác luôn.......mới sáng hôm nay (21/10/2015) anh ấy còn bâng quơ...cơ mà tới chiều anh ấy lại như vầy...Thật là ngưỡng mộ quá đi ah....

 

[khonghoithinguhocdungchem]

Xin lỗi bạn hpkhuong nhé, cái này mình chia sẻ chứ ko phải trình độ gì cả, vì bạn kieumanh cho mình thì ai cần thì mình chia se thôi
lên diễn đàn này chủ yếu là học hỏi, ngộ ra nhiều thứ, chứ không giống ai ko giúp thì thôi lại cứ chém, mình biết là bạn có thể rất giỏi, mình cũng thừa nhận là mình ngu, ngu thì mới phải học, chứ giỏi như bạn thì làm gì ko đc. kaaaaaaaaaaaa