vba分摊（vba分割）

本篇文章给大家谈谈vba分摊，以及vba分割对应的知识点，希望对各位有所帮助，不要忘了收藏本站喔。

本文目录：

• 1、excel里如何用vba的selection change实现如下图的平均分摊(上面的图是选中多列未释放鼠标前)：
• 2、EXCEL里设定一个固定数，然后分摊到各个单元格内如何做？ 最大不能超过2，微量的2少量的1大多数为0。
• 3、如何在Excel里用vba实现这样的自动平均分摊:把同行或同列的若干个选中的连续非空，空单元格所含

excel里如何用vba的selection change实现如下图的平均分摊(上面的图是选中多列未释放鼠标前)：

过程没有问题，两点需要楼主确认

如果B列数据不是A列的整数倍，那拆分后，最后一格会是余数。

考虑到清屏需要，请给出一个区间范围（比如最大倍数）以便初始化

EXCEL里设定一个固定数，然后分摊到各个单元格内如何做？ 最大不能超过2，微量的2少量的1大多数为0。

=RANDBETWEEN(0,2)

这个公式可以实现单元格内数字随机变换成0,1,2，至于这么多单元格内的数字加起来要等于一个设定值，需要用到vba编程。

如何在Excel里用vba实现这样的自动平均分摊:把同行或同列的若干个选中的连续非空，空单元格所含

摊平，不是很难。不过，原始数据丢失了，好像有点费解

Sub 摊平()

Dim rTotal, rC As Range

Dim nSum, nAva As Double

Set rTotal = Selection

nSum = Application.WorksheetFunction.Sum(rTotal)

nAva = Round(nSum / rTotal.Count, 1)

For Each rC In rTotal

rC.Value = nAva

Next

Cells(rTotal(rTotal.Count).Row, rTotal(rTotal.Count).Column).Value = nSum nAva * (rTotal.Count 1)

End Sub

横竖都可以摊平

vba分摊的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vba分割、vba分摊的信息别忘了在本站进行查找喔。