Sub TimTri_5()
Dim eRw As Long, Jj As Long
Dim Cls As Range, Rng As Range
eRw = [C65500].End(xlUp).Row
For Each Cls In Range([C2], Cells(eRw, "C"))
Set Rng = Cls.Resize(5)
For Jj = 5 To 1 Step -1
If Rng(Jj).Value <> "" Then
Cls.Offset(4, 1).Value = Rng(Jj).Value
Exit For
Else
If Rng(1).Value = "" Then Cls.Offset(4, 1).Value = ""
End If
Next Jj
Next Cls
End Sub
Công thức cho cell D6:Hi all,
Vấn đề mình cần giúp đỡ mình đã mô tả trong file đính kèm.. Giúp mình với nhé. Thân
![]()
=IF(COUNTBLANK(C2:C6)=5,"",LOOKUP(10^15,C2:C6))