Tim du lieu tu duoi len va dien vao A1 (1 người xem)

[FPT_online]

Em có dữ 1 bảng dữ liệu

Mỗi khi nhập vào nó sẽ ra các ký tự phù hợp điền vào ô kế bên
Em muốn tự động excel tính từ dưới lên để điền vào ô A1
Mọi người xem trong VD và giải giúp em với, làm bằng VBA hoặc công thức đều được ạ, em chân thành cám ơn

 

[SA_DQ]

,,,,,,..Tiêu đề sai với nội 2ui,,,,..,,,,,

 

[SA_DQ]

Option Explicit
Sub DienKetQua()
 Dim LRw As Long, J As Long, W As Integer
 Dim sRng As Range
 Dim StrC As String
 
 Set sRng = Range("I1:K9999").Find("*", [I1], , , xlByRows, xlPrevious)
 If Not sRng Is Nothing Then LRw = sRng.Row
 For J = LRw To 1 Step -1
    Set sRng = Cells(J, "I").Resize(, 3)
    For W = 1 To 3
        With sRng(W)
            If .Value <> "" Then StrC = StrC & .Value
        End With
    Next W
 Next J
 MsgBox StrC
End Sub

 

[FPT_online]

Option Explicit
Sub DienKetQua()
 Dim LRw As Long, J As Long, W As Integer
 Dim sRng As Range
 Dim StrC As String
 
 Set sRng = Range("I1:K9999").Find("*", [I1], , , xlByRows, xlPrevious)
 If Not sRng Is Nothing Then LRw = sRng.Row
 For J = LRw To 1 Step -1
    Set sRng = Cells(J, "I").Resize(, 3)
    For W = 1 To 3
        With sRng(W)
            If .Value <> "" Then StrC = StrC & .Value
        End With
    Next W
 Next J
 MsgBox StrC
End Sub

Em đã thử nhưng không thấy code chạy nhờ thầy chỉ giúp em ạ

 

[FPT_online]

1. Tiêu đề sai nội quy
2. Bạn nói chưa rõ. Điền vào ô A1 kết quả như nào sao không làm mẫu vào đó...
3. Câu màu xanh, nhập cái gì ở đâu? Điền kết quả vào ô kế bên ra sao

Nói chung bạn phải nói rõ ràng....

Dạ hiện em đang sửa lại cho đầy đủ rồi gửi lại file nhờ các anh chị xem và giúp em luôn. Làm 1 lần khỏi phải chỉnh đi chỉnh lại. Em cám ơn mọi người