如何把箭头标记的10这个数值 平均分配至b1至G1 注：平均值需要整数 如红框这个表达方式

顶

顶

顶

你要的结果是这样的吗

'按结果图示凑了一个。
Option Explicit
Sub abc()
　Dim a, i, sum, m, n
　a = [b1].Resize(, Cells(1, Columns.Count).End(xlToLeft).Column - 1).Value
　sum = [a2].Value
　m = sum \ UBound(a, 2): n = sum Mod UBound(a, 2)
　For i = 1 To UBound(a, 2)
　　a(1, i) = m
　Next
　For i = UBound(a, 2) To UBound(a, 2) - n + 1 Step -1
　　a(1, i) = a(1, i) + 1
　Next
　[b2].Resize(, UBound(a, 2)) = a
End Sub

取模取余，简单，

你是先平均分配,然后出的余数从最后面开始分配

=INT($A2/6)+IF(COLUMN(A1)>(6-MOD($A2,6)),1,)

=INT($A2/6)+(MOD($A2,6)>6-COLUMN(A1))

=ROUNDUP($A4/6-(6-COLUMN(A1))/6,0)
好像不能再短了

=INT(($A4+COLUMN(A1)-1)/6)
没有更短了，不接受反驳