Lưu lại lịch sử thay đổi ở Cột A vào Cột B

[Lưu Thịnh 16]

Nhờ mọi người giúp: Có cách nào lưu lại lịch sử thay đổi ở cột A sang cột B không ạ?
Mỗi lần nhập dữ liệu vào cột A, nó sẽ tự nhảy sang cột B, đồng thời xóa dữ liệu cột A đó đi.
Và Lần thứ 2 nhập vào cột A, thì cột B đó sẽ được thêm dữ liệu mới vào dữ liệu cũ, chứ không xóa dữ liệu cũ ở cột B
Nhờ mọi người giúp ạ.

 

[Ba Tê]

Nhờ mọi người giúp: Có cách nào lưu lại lịch sử thay đổi ở cột A sang cột B không ạ?
Mỗi lần nhập dữ liệu vào cột A, nó sẽ tự nhảy sang cột B, đồng thời xóa dữ liệu cột A đó đi.
Và Lần thứ 2 nhập vào cột A, thì cột B đó sẽ được thêm dữ liệu mới vào dữ liệu cũ, chứ không xóa dữ liệu cũ ở cột B
Nhờ mọi người giúp ạ.

Chuyện này chắc chỉ có thể dùng VBA.
Nhập gì đó từ A6 trở xuống đến A100.

 

[Phuocam]

chứ không xóa dữ liệu cũ ở cột B

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 1 Or Target.Count > 1 Then Exit Sub
Application.EnableEvents = False
    Target.Offset(0, 1).Value = Target.Value & IIf(Target.Offset(0, 1).Value = "", "", ", ") & Target.Offset(0, 1).Value
    Target.Value = Empty
Application.EnableEvents = True
End Sub

Chậm hơn thầy Ba rồi!

 

[Lưu Thịnh 16]

Cảm ơn các bác nhiều ạ. Đúng cái em cần rồi ạ