这个难度不大,菜单一步一步就点出来了
- let
- 源 = Excel.CurrentWorkbook(){[Name="表1"]}[Content],
- 更改的类型 = Table.TransformColumnTypes(源,{{"房号", type text}, {"姓名", type text}, {"起租日期", type date}, {"终止日期", type date}, {"年租金", Int64.Type}}),
- 展开日 = Table.ExpandListColumn(Table.AddColumn(更改的类型, "日", each {Number.From([起租日期])..Number.From([终止日期])}), "日"),
- 转日 = Table.TransformColumnTypes(展开日,{{"日", type date}}),
- 年 = Table.AddColumn(转日, "年", each Text.From(Date.Year([日]))),
- 整月租金 = Table.AddColumn(年, "整除", each Number.IntegerDivide([年租金], 12), Int64.Type),
- 月份 = Table.AddColumn(整月租金, "月份名称", each Text.From(Date.Month([日]))),
- 当月天数 = Table.TransformColumns(Table.AddColumn(月份, "月份结束值", each Date.EndOfMonth([日]), type date),{{"月份结束值", Date.Day, Int64.Type}}),
- 月天 = Table.Group(当月天数, {"房号", "姓名", "起租日期", "终止日期", "年租金", "年", "整除", "月份名称", "月份结束值"}, {{"a", each Table.RowCount(_), Int64.Type}}),
- 月租金 = Table.AddColumn(月天, "月租金", each [整除]*[a]/[月份结束值]),
- 合并年月名称 = Table.TransformColumns(Table.CombineColumns(月租金,{"年", "月份名称"},Combiner.CombineTextByDelimiter("年", QuoteStyle.None),"月份"),{"月份",each _&"月份"}),
- 保留列 = Table.SelectColumns(合并年月名称,{"房号", "姓名", "月份", "月租金"})
- in
- 保留列
复制代码 |