Excel 日期格式怎么批量统一：保留原值并标记异常

let
    Source = #table(type table [行号 = Int64.Type, 原值 = any], {
        {1,"2026-09-01"}, {2,"2026/9/2"}, {3,"2026-09-03"}, {4,"2026/09/04"},
        {5,46270}, {6,46271}, {7,"2026-09-07"}, {8,"2026/9/8"},
        {9,"03-09-2026"}, {10,"04-05-2026"}, {11,"9 月上旬"}, {12,null}
    }),
    Parse = (v as any) as record =>
        if v = null then [规范日期=null, 状态="空值"]
        else if Value.Is(v, type number) then
            if v = Number.RoundDown(v) and v >= 46023 and v <= 46387
            then [规范日期=Date.AddDays(#date(1899,12,30),v), 状态="已转换：已确认1900日期系统"]
            else [规范日期=null, 状态="序列值不在本例范围"]
        else
            let
                t=Text.Trim(Text.From(v)),
                parts=Text.Split(Text.Replace(t,"/","-"),"-"),
                isYearFirst=List.Count(parts)=3 and Text.Length(parts{0})=4,
                attempt=try (if isYearFirst then #date(
                    Number.FromText(parts{0},"en-US"),
                    Number.FromText(parts{1},"en-US"),
                    Number.FromText(parts{2},"en-US")) else error "非确定年月日")
            in
                if t="" then [规范日期=null,状态="空值"]
                else if not attempt[HasError] then [规范日期=attempt[Value],状态="已转换：年在前"]
                else if Text.Contains(t,"上旬") then [规范日期=null,状态="非精确日期"]
                else [规范日期=null,状态="格式或地区待确认"],
    Added=Table.AddColumn(Source,"解析",each Parse([原值])),
    Expanded=Table.ExpandRecordColumn(Added,"解析",{"规范日期","状态"}),
    Typed=Table.TransformColumnTypes(Expanded,{{"规范日期",type date}})
in
    Typed