Hỏi về ngày tháng năm

[khoahoc78]

Mong mọi người giúp đỡ
A1= thứ hai. B1=15/10/2017
Mình muốn
A2=Thứ ba. Thì B2 tự động 16/10/2017
...
A7=Chủ nhật thì B7=22/10/2017

 

[befaint]

Mong mọi người giúp đỡ
A1= thứ hai. B1=15/10/2017
Mình muốn
A2=Thứ ba. Thì B2 tự động 16/10/2017
...
A7=Chủ nhật thì B7=22/10/2017

 

[khoahoc78]

Mong mọi người giúp đỡ
A1= thứ hai. B1=15/10/2017
Mình muốn
A2=Thứ ba. Thì B2 tự động 16/10/2017
...
A7=Chủ nhật thì B7=22/10/2017

 

[khoahoc78]

Mình muốn ngược lại
Ô B2-B7 tự động nhảy ngày tiếp theo

 

[phulien1902]

Mình muốn ngược lại
Ô B2-B7 tự động nhảy ngày tiếp theo

Bạn thử:

Sub abc()
    Dim i, LR
    Application.ScreenUpdating = False
    LR = Range("A" & Rows.Count).End(xlUp).Row
    For i = 2 To LR
        Cells(i, 2) = Cells(i - 1, 2) + 1
    Next
    Application.ScreenUpdating = True
End Sub