格式转换+数据查询

cabcyvr

格式转换+数据查询

将AB列表排列成EF格式
E列：需要升序列出每个姓名所有日期区间范围内的所有日期，例如B，虽然在A列只有两个日期，但是要列出16-22号之间所有7个日期。
F列：根据E列的日期，从AB列中提取日期对应的姓名。如果没有记录则空白。注意不同姓名的日期区间内会有相同的日期。

sucx007

1. =REDUCE(A1:B1,UNIQUE(B2:B9),LAMBDA(x,y,LET(a,FILTER(A2:B9,B2:B9=y),b,ROW(INDIRECT(MIN(a)&":"&MAX(a))),VSTACK(x,HSTACK(b,IFERROR(VLOOKUP(b,a,2,),""))))))

复制代码

365函数

zpy2

//select * from 所有日期区间范围内的所有日期 limit 20;
with recursive under_alice(c) as (
values(22) u nion   all select c+1 from under_alice where c<28),
aa as (select * from 所有日期区间范围内的所有日期)
select '6/'||c 日期,姓名 from under_alice left join aa on '6/'||c like 日期;

xlllw203

1. =REDUCE({"日期","姓名"},UNIQUE(B2:B9),LAMBDA(x,y,LET(a,INDEX(A2:A9,MATCH(y,B2:B9,)),b,INDEX(A2:A9,MATCH(y,B2:B9))-INDEX(A2:A9,MATCH(y,B2:B9,))+1,c,a+ROW(INDIRECT("1:"&b))-1,VSTACK(x,HSTACK(c,IFERROR(VLOOKUP(c,FILTER(A2:B9,B2:B9=y),2,),""))))))

复制代码

看到楼上有更好的答案，但是费脑子写了，还是贴出来吧，难处理的是第二列。
感叹365的强大

quqiyuan

1. let
   
2.     源 = Excel.CurrentWorkbook(){[Name="表1"]}[Content],
   
3.     更改的类型 = Table.TransformColumnTypes(源,{{"日期", type date}, {"姓名", type text}}),
   
4.     分组的行 = Table.Group(更改的类型, {"姓名"}, {{"a", each
   
5.     let
   
6.         源 = _,
   
7.         删除的列 = Table.RemoveColumns(源,{"姓名"}),
   
8.         筛选的行 = Table.SelectRows(删除的列, let earliest = List.Min(删除的列[日期]), latest = List.Max(删除的列[日期]) in each [日期] = earliest or [日期] = latest),
   
9.         转置表 = Table.Transpose(筛选的行),
   
10.         已添加自定义 = Table.AddColumn(转置表, "日期", each {Number.From([Column1])..Number.From([Column2])}),
    
11.         a=Table.FromColumns(已添加自定义[日期],{"日期"}),
    
12.         更改的类型 = Table.TransformColumnTypes(a,{{"日期", type date}}),
    
13.         合并的查询 = Table.NestedJoin(更改的类型, {"日期"}, 源, {"日期"}, "参数", JoinKind.LeftOuter),
    
14.         b= Table.ExpandTableColumn(合并的查询, "参数", {"姓名"}, {"姓名"})
    
15.     in
    
16.         b                                        }}),
    
17.     b= Table.Combine(分组的行[a])
    
18. in
    
19.     b

复制代码