今天看啥  ›  专栏  ›  完美Excel

使用VBA跨单元格分配值

完美Excel  · 公众号  · Excel  · 2023-05-17 05:30
学习Excel技术,关注微信公众号:excelperfect标签:VBA这是在exceloffthegrid.com中看到的一个案例,一个非常有用的节省时间的宏:在单元格之间分配值。假设有一份单个物品的清单,加起来总共210美元,你的老板想额外增加21美元作为应急费用。你打算如何使总额达到231美元?有几个选项:1.添加一个含有21美元的调整行2.确定可以增加的具体额度,以达到231美元的总额3.将21美元的涨幅平均分摊到所有单元格4.将21美元分摊到每一行项目中,使每个项目都能获得公平的比例下面的VBA代码采用第四个选项。可以使用公式手动执行此操作,但这将非常耗时;相反,下面的VBA代码只需要2秒钟。Sub ApportionValueAcrossCells() Dim apportionValue As Double Dim keepAsFormula As Long Dim total As Double Dim c As Range Dim formulaString As String '获取现有的总数 total = Application. ………………………………

原文地址:访问原文地址
快照地址: 访问文章快照