如C列存放的是一些包含日期的字符，如“20090919dzwebs.net”

　　那么，如何通過(guò)VBA將最后一列的日期提取出來(lái)，并將日期加1顯示在最后一行呢？其實(shí)非常簡(jiǎn)單。

　　以下為實(shí)現(xiàn)的方法，請(qǐng)諸君過(guò)目！

　　新建一個(gè)VBA宏，提取日期，代碼如下：

　　Sub igetDate()
　　Dim i, j As String                             　'定義i,j為字符型，用于取得數(shù)字
　　Dim riqi As String                        　　 '定義d為字符型，用于格式化所取得的數(shù)字
　　j = Range("a65535").End(xlUp).Row         '定位至EXCEL表格最后一行
　　i = Left(Cells(j, 3), 8)                                 '取最后一行的第3列的前八位數(shù)字，如20090601

　　riqi = Format(i, "####/##/##")                   '格式化所取得的數(shù)字，格式化為2009/06/01，
                                                                　 '不用CDATE轉(zhuǎn)換都可以作為日期使用了
　　riqi = DateAdd("d", 1, riqi)                   '日期的天數(shù)加一天，變成2009/06/02
　　Cells(j + 1, 1) = riqi                         　 '在日期編碼的下一行的單元格輸入轉(zhuǎn)換后的日期

　　End Sub

　　以上代碼用到函數(shù)left,format,dateadd；

　　這樣我們就實(shí)現(xiàn)了用VBA將字符串的日期變成了真正的日期型了。