Sao bạn không dùng hàm YEAR ? Hàm này chuyên dùng để trích ra cái con số chỉ năm mà ? Ai lại đi dùng hàm RIGHT, hàm RIGHT chỉ dùng để xử lý ký tự thôi, dùng nó mà xử lý ngày tháng năm không phải là không được nhưng cực lắm!
Mình thử chuyển sang dạng text rồi có báo lỗi gì đâu.
Sao bạn không nhập liệu cho đúng chuẩn nhỉ. Lúc đó sẽ rất dễ dàng và đó cũng là một thói quen tốt.
Option Explicit
Sub TDate()
Dim Clls As Range
For Each Clls In Range("D8:D" & [C65500].End(xlUp).Row)
If Clls.Value <> "" Then
Cells(Clls.Row, "F") = Convert(Clls.Value)
Else
If Clls.Offset(, 1).Value <> "" Then _
Cells(Clls.Row, "F") = Convert(Clls.Offset(, 1).Value)
End If
Next Clls
End Sub[B]Function Convert(Value_)[/B]
If IsNumeric(Value_) Then
Convert = Year(Value_)
Else
Convert = Year(CDate(Value_))
End If
[B]End Function[/B]
Nếu số liệu cột mới tạo không để dùng làm cơ sở cho tính toán thì ta có thể thêm chữ 'N' hay 'Y' cho 1 phái nào đó 
)
Với dử liệu của bạn (vừa Text vừa Num) thì nếu may mắn chạy trên máy tính nào đó có thiết lập trong Control Panel thuộc dạng dd/mm/yyyy sẽ OK (Có lẽ máy Salam thuộc trường hợp này)... Ngược lại, chạy trên máy có thiết lập mm/dd/yyyy thì sẽ sai tại 1 số cell (đang ở dạng Text)
=IF(COUNTBLANK(D8:E8)=2,"",IF(ISTEXT(OFFSET(D8,,D8="")),1*RIGHT(OFFSET(D8,,D8=""),4),YEAR(OFFSET(D8,,D8=""))))
Nếu chỉ có 2 chữ số chỉ năm như thế, thì bạn cộng thêm cho nó 1900 nữa, rồi lấy năm nay trừ đi con số đó, là được mà?
