VBA：我如何为自动更正日期编写宏？

Question

我尝试过使用录制微距功能，但没有录制任何内容

Answer 1

您可以遍历Worksheet.SmartTags。

Sub FixDates()
    Application.ScreenUpdating = False
    Dim DateTag As SmartTag
    For Each DateTag In ActiveSheet.SmartTags

        If DateTag = "urn:schemas-microsoft-com:office:smarttags#date" Then

            DateTag.Range.Value = CDate(DateTag.Range.Value)

            DateTag.Delete

        End If

    Next
    Application.ScreenUpdating = True
End Sub