excel vba从单元格里提取生日，显示错误13类型不匹配

Question

excel vba从单元格里提取生日，显示错误13类型不匹配

Dim birthday As Date
Dim sendIndex

endRowNo = ThisWorkbook.Sheets("Sheet1").[a65535].End(xlUp).Row 


ThisWorkbook.Sheets("sheet1").Select

For rowCount = 2 To endRowNo 

nbirthday = ThisWorkbook.Sheets("sheet1").Range("d" & rowCount).Value
birthday = CDate(nbirthday)

单元格如下

Answer 1

如果您在Excel VBA中使用了CDate函数将单元格的日期值转换为日期类型，但是在运行代码时出现了“错误13：类型不匹配”，则可能是因为单元格内的值不是可识别的日期格式。