Tự động xóa dữ liệu trùng khi nhập

[Hoang Dac Cat]

Chào mọi người

Nhờ mọi người giúp đỡ mình cải tiến đoạn mã xóa dữ liệu trùng nếu trước đó đã có dữ liệu tại cột A.
Dữ liệu nhập bắt đầu từ ô A2 tại sheet 1
ô A1 sẽ nhận giá trị tại dòng cuối cùng của cột A
Đoạn mã của mình chưa tối ưu nên chạy hơi lâu

 

[CHAOQUAY]

Chào mọi người

Nhờ mọi người giúp đỡ mình cải tiến đoạn mã xóa dữ liệu trùng nếu trước đó đã có dữ liệu tại cột A.
Dữ liệu nhập bắt đầu từ ô A2 tại sheet 1
ô A1 sẽ nhận giá trị tại dòng cuối cùng của cột A
Đoạn mã của mình chưa tối ưu nên chạy hơi lâu

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Dim i, j, k, x
k = Target.Row
j = Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To j
    If i <> k And Range("A" & i) = Target Then
        Target.ClearContents
        Exit For
    End If
Next i
x = Range("A" & Rows.Count).End(xlUp).Row
Range("A1") = Range("A" & x)
Application.EnableEvents = True
End Sub

 

[batman1]

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Dim i, j, k, x
k = Target.Row
j = Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To j
    If i <> k And Range("A" & i) = Target Then
        Target.ClearContents
        Exit For
    End If
Next i
x = Range("A" & Rows.Count).End(xlUp).Row
Range("A1") = Range("A" & x)
Application.EnableEvents = True
End Sub

Hình như không đúng với dụng ý của chủ thớt.

Giả sử A2 = 1, A3 = 2, A4 = 3 thì với code của chủ thớt thì sau khi sửa thành A3 = 3 thì A4 = rỗng. Khi sửa thành A3 = 1 thì A3 = rỗng.

Với code của bạn thì trong cả 2 trường hợp đều có A3 = rỗng.

 

[CHAOQUAY]

Hình như không đúng với dụng ý của chủ thớt.

Giả sử A2 = 1, A3 = 2, A4 = 3 thì với code của chủ thớt thì sau khi sửa thành A3 = 3 thì A4 = rỗng. Khi sửa thành A3 = 1 thì A3 = rỗng.

Với code của bạn thì trong cả 2 trường hợp đều có A3 = rỗng.

code của chủ thớt chạy không dừng nên không dám thử nhiều, gọi là chỉ viết theo đại ý yêu cầu thôi bác ạ.

 

[Hoang Dac Cat]

Cảm ơn CHAOQUAY đã hướng dẫn nhé. Về cơ bản đoạn mã bạn hướng dẫn cũng khá đúng với yêu cầu của mình. Tuy nhiên nếu copy 2 dòng và paste vào ô A2 trở xuống thì sẽ bị lỗi. Ngoài ra nhờ bạn chỉ thêm về câu lệnh Target.row có nghĩa gì với nhé

 

[CHAOQUAY]

Cảm ơn CHAOQUAY đã hướng dẫn nhé. Về cơ bản đoạn mã bạn hướng dẫn cũng khá đúng với yêu cầu của mình. Tuy nhiên nếu copy 2 dòng và paste vào ô A2 trở xuống thì sẽ bị lỗi. Ngoài ra nhờ bạn chỉ thêm về câu lệnh Target.row có nghĩa gì với nhé

Khai báo ByVal Target As Range -> target.row là chỉ số dòng của target.
Việc paster >1 ô trong sư kiện change thì bạn tìm hiểu thêm trên diễn đàn vậy nhé.

 

[iloveit]

Khai báo ByVal Target As Range -> target.row là chỉ số dòng của target.
Việc paster >1 ô trong sư kiện change thì bạn tìm hiểu thêm trên diễn đàn vậy nhé.

target.row bắt buộc phải viết trong sheet hay sao anh.
Em viết code trong module báo lỗi

 

[CHAOQUAY]

target.row bắt buộc phải viết trong sheet hay sao anh.
Em viết code trong module báo lỗi

Bạn viết sub trong module, sau đó gọi lại trong sự kiện change chắc là giải quyết được thôi.

 

[VetMini]

target.row bắt buộc phải viết trong sheet hay sao anh.
Em viết code trong module báo lỗi

Báo lỗi gì? code ra sao?