Anh chị giúp e dò tìm thế nào để chuyện từ cột 1 sang cột 2

[thientoan65]

anh chi giúp e chuyển như file đính kèm

 

[phamxuantruong012]

BẠN THỬ CÔNG THỨC: F2=IF(A2="";F1;A2)

 

[phulien1902]

anh chi giúp e chuyển như file đính kèm

Bạn thử:

Sub Test()
    Dim Rg As Range
    Range("F2:F14").Value = Range("A2:A14").Value
    For Each Rg In Sheet1.UsedRange.Columns(6).SpecialCells(4)
        Rg(0).Copy Rg
    Next
End Sub