粘贴后未显示日期

Question

我有一个报告文件，在某些部分中，我正在将远程计算机上的表复制到本地Excel文件中，但是复制日期与日期不同后，我需要每次都进行搜索和替换（搜索“。”替换为“ 。”然后日期来了。我有一个VBA代码，但没有在所有工作表中更正。

Sub tarihecevir()
    Dim sht As Worksheet
    Dim fnd As Variant
    Dim rplc As Variant

    fnd = "."
    rplc = "."

    For Each sht In ActiveWorkbook.Worksheets
        sht.Cells.Replace what:=fnd, Replacement:=rplc, _
                          LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, _
                          SearchFormat:=False, ReplaceFormat:=False
    Next sht
End Sub

它可与普通ctrl + H一起使用，但宏无法修复它。 请帮助我。