求助（在线等）

王正方方

<P>这个办法很好！</P>

hzg7818

<P>楼主，请跟着我的讲解分步做一下。</P><P>1、打开Excel后同时按alt+f11键，这时进入vbe编程窗口</P><P>2、“插入”菜单中选择“模块”</P><P>3、将这段代码复制到该模块中，光标移动到代码体内按f5键执行</P><P>4、执行完毕，关闭退出vbe窗口</P>

hzg7818

Sub GetDate()<BR>                         Dim i As Integer<BR>                         Dim Lastrow As Integer<BR>                         <BR>                         Lastrow = Sheet1.Range("c65536").End(xlUp).Row<BR>                         <BR>                         For i = 1 To Lastrow<BR>                                                         Sheet1.Cells(i, "c") = Right(Cells(i, "c"), 10)<BR>                         Next i<BR>                         <BR>End Sub<BR>添加一个标准模块，然后复制此段代码后执行，不过只是类似日期的文本型，并非真正的日期