excel - 跨 Excel 版本的宏问题

Question

我有一个启用宏的工作簿，它在 Office365 版本的 Excel 中运行良好，但早期版本到处都是。如果有人可以提供指导，我将不胜感激！当前的问题在于以下这一点：

Range("1:1").Select
        Selection.Find(What:="eventdate", After:=ActiveCell, LookIn:=xlFormulas2, LookAt _
            :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
            False, SearchFormat:=False).Select
        Range(Selection.Offset(1, 0), Selection.Offset(1048570, 0).End(xlUp)).Select
        Set rng = Selection
        For Each eventdateCell In rng
            eventdateCell.NumberFormat = "@"
            eventdateCell.Value = WorksheetFunction.Text(eventdateCell.Value, "yyyy-mm-dd")
        Next eventdateCell

标签： excelvba