VBA：我如何编写一个自动更正date的macros？

我曾尝试使用loggingmacrosfunction，但没有logging

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