ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
Python自动化办公应用大全 Excel 2021函数公式学习大典 Kutools for Office 套件发布 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
12
返回列表 发新帖
楼主: 1qaz2wsx11

怎样根据租赁期限自动生成分月租金

[复制链接]

TA的精华主题

TA的得分主题

发表于 2025-11-5 22:45 | 显示全部楼层
这个难度不大,菜单一步一步就点出来了
  1. let
  2.     源 = Excel.CurrentWorkbook(){[Name="表1"]}[Content],
  3.     更改的类型 = Table.TransformColumnTypes(源,{{"房号", type text}, {"姓名", type text}, {"起租日期", type date}, {"终止日期", type date}, {"年租金", Int64.Type}}),
  4.     展开日 = Table.ExpandListColumn(Table.AddColumn(更改的类型, "日", each {Number.From([起租日期])..Number.From([终止日期])}), "日"),
  5.     转日 = Table.TransformColumnTypes(展开日,{{"日", type date}}),
  6.     年 = Table.AddColumn(转日, "年", each Text.From(Date.Year([日]))),
  7.     整月租金 = Table.AddColumn(年, "整除", each Number.IntegerDivide([年租金], 12), Int64.Type),
  8.     月份 = Table.AddColumn(整月租金, "月份名称", each Text.From(Date.Month([日]))),
  9.     当月天数 = Table.TransformColumns(Table.AddColumn(月份, "月份结束值", each Date.EndOfMonth([日]), type date),{{"月份结束值", Date.Day, Int64.Type}}),
  10.     月天 = Table.Group(当月天数, {"房号", "姓名", "起租日期", "终止日期", "年租金", "年", "整除", "月份名称", "月份结束值"}, {{"a", each Table.RowCount(_), Int64.Type}}),
  11.     月租金 = Table.AddColumn(月天, "月租金", each [整除]*[a]/[月份结束值]),
  12.     合并年月名称 = Table.TransformColumns(Table.CombineColumns(月租金,{"年", "月份名称"},Combiner.CombineTextByDelimiter("年", QuoteStyle.None),"月份"),{"月份",each _&"月份"}),
  13.     保留列 = Table.SelectColumns(合并年月名称,{"房号", "姓名", "月份", "月租金"})
  14. in
  15.     保留列
复制代码
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2025-12-6 13:19 , Processed in 0.018118 second(s), 6 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表