假如C列存放的是一些包含日期的字符，如“20090919dzwebs.net”
那么，如何通过VBA将最后一列的日期提取出来，并将日期加1显示在最后一行呢？其实非常简单。
以下为实现的方法，请诸君过目！
新建一个VBA宏，提取日期，代码如下：
Sub igetDate()
Dim i, j As String '定义i,j为字符型，用于取得数字
Dim riqi As String '定义d为字符型，用于格式化所取得的数字
j = Range("a65535").End(xlUp).Row '定位至EXCEL表格最后一行
i = Left(Cells(j, 3), 8) '取最后一行的第3列的前八位数字，如20090601
riqi = Format(i, "####/##/##") '格式化所取得的数字，格式化为2009/06/01，
'不用CDATE转换都可以作为日期使用了
riqi = DateAdd("d", 1, riqi) '日期的天数加一天，变成2009/06/02
Cells(j + 1, 1) = riqi '在日期编码的下一行的单元格输入转换后的日期
End Sub
以上代码用到函数left,format,dateadd；
这样我们就实现了用VBA将字符串的日期变成了真正的日期型了。