请高手帮忙修改下这个日期复制的代码，谢谢

qiongmei6

我附件有2个文件，我现在有一个代码就是，当我在“复制”表格执行这个文件，他会将“2”表格内a1：a10的日期录入复制表格的a1：a10，但现在出现的问题是a1：a5是有日期，但是a6：a10是空白的，如果使用这个代码，在复制表格内a6：a10则出现1900-1-0，能否修改代码，让a6：a10为空白，谢谢高手师傅的帮忙，今天早上发过，因为上传文件的时候我误会附件已经上传，结果只有重新发过，恳请高手帮忙。这个代码是Sub 备份()
    Dim Temp As String
    Dim aaa As Range
    Temp = "'" & ThisWorkbook.Path & "\[2.xls]2'!"
    With Sheet1.Range("a1:a10")
        .FormulaR1C1 = "=" & Temp & "RC"
        .Value = .Value
        .Replace 0, "", xlWhole

    End With

End Sub

today0427

Sub 备份()
    Dim Temp As String
    Temp = "'" & ThisWorkbook.Path & "\[2.xls]2'!"
    With Sheet1.Columns("a:a")
        .FormulaR1C1 = "=if(len(" & Temp & "RC),text(" & Temp & "RC,""yyyy年m月d日""),"""")"
    End With
End Sub

today0427

……………………

qiongmei6

二楼的师傅，谢谢您的回答，但是你可能没有理解我的意思，我是想凡是出现1900-1-0，这种是删除掉，使之变成空白，再次谢谢二楼师傅的回答

microyip

那是你的公式设计上存在问题，不是代码问题

today0427

一楼的师傅，不客气，你看下下面的图，左边是你的源文件2，右边是复制过来的日期，凡是左边为空，右边就为空，您再看看