xuất dữ liệu khác nhau trong 1 ô ra nhiều hàng trong 1 cột

[lamxd071]

mình thì kém VB
nên mình nhờ các bạn trong diễn đàn viết dùm mình 1 đoạn này có kèm theo file bên dưới
mong các bạn giúp đỡ mình
mong được trả lời sớm
chân thành cám ơn!!!!!!!

 

[MinhCong]

mình thì kém VB
nên mình nhờ các bạn trong diễn đàn viết dùm mình 1 đoạn này có kèm theo file bên dưới
mong các bạn giúp đỡ mình
mong được trả lời sớm
chân thành cám ơn!!!!!!!

Bạn dùng tạm đoạn code sau vậy:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$F$4" Then
    If Range("I4") = "" Then
       Range("I4") = Target
    Else
       Range("I" & [I65500].End(xlUp).Row).Offset(1) = Target
    End If
End If
End Sub

 

[ndu96081631]

Bạn dùng tạm đoạn code sau vậy:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$F$4" Then
    If Range("I4") = "" Then
       Range("I4") = Target
    Else
       Range("I" & [I65500].End(xlUp).Row).Offset(1) = Target
    End If
End If
End Sub

Trong yêu cầu của tác giả có đoạn này:

nếu cột A bi xóa (trống) thì bắt dầu lại từ đầu nhập số tại F4 lần 1 xuất ra A4

Vậy thì code của MinhCong "ăn nhậu" gì với cột A nhỉ?
Nói thật, tôi xem xong file cũng chẳng hiểu ý tác giả muốn gì

 

[MinhCong]

Trong yêu cầu của tác giả có đoạn này:

Vậy thì code của MinhCong "ăn nhậu" gì với cột A nhỉ?
Nói thật, tôi xem xong file cũng chẳng hiểu ý tác giả muốn gì

Do Em thấy trong ô F4 ghi là kết quả ở cột I nên Em đoán vậy. Thấy cột A ghi nhập số ở ô F4 cho kết quả ở ô A4 (lần 1...n) Tuy nhiên bên cột I lại khác.
Híc...lại đoán mò!

 

[lamxd071]

ý mình là khi nhập vào ô dữ liệu mỗi lần khác nhau thì các kết quả đó sẽ lưu lại bên cột A ở mỗi dòng
nhưng nếu các dòng của cột A bị trống (xóa) thì việc sao lưu lại như ở trên sẽ bắt đầu lại từ đầu