一个数据分配问题。

miaosano

liulang0808 发表于 2018-9-12 13:42

非常感谢版主的耐心帮助，真的很感谢。

miaosano

liulang0808 发表于 2018-9-12 13:42

再次感谢您的帮助，再我这里出了一点问题。类型不匹配。

miaosano

liulang0808 发表于 2018-9-12 13:42

只有你能帮助到我了。谢谢大神再整一整。2010版excel

liulang0808

1. Sub 按钮1_Click()
   
2.      Application.ScreenUpdating = False
   
3.     arr = Range("a1:ag31")
   
4.     For j = 2 To UBound(arr)
   
5.         If Len(arr(j, UBound(arr, 2))) > 0 And j <> 32 Then
   
6.             x = WorksheetFunction.CountA(Cells(j, 1).Resize(1, UBound(arr, 2)))
   
7.             If x < UBound(arr, 2) Then
   
8.                a = UBound(arr, 2) - x
   
9.                sm = arr(j, UBound(arr, 2))
   
10.                For i = 2 To UBound(arr, 2) - 1
    
11.                 If Len(arr(j, i)) = 0 Then
    
12.                     If a Mod 2 = 0 Then
    
13.                         arr(j, i) = Int(sm / a - 0.5)
    
14.                         sm = sm - arr(j, i)
    
15.                         a = a - 1
    
16.                     Else
    
17.                         arr(j, i) = Int(sm / a + 0.5)
    
18.                         sm = sm - arr(j, i)
    
19.                         a = a - 1
    
20.                     End If
    
21.                 End If
    
22.                Next i
    
23.             End If
    
24.         End If
    
25.     Next j
    
26.     Range("a1:ag31") = arr
    
27.     Application.ScreenUpdating = True
    
28. End Sub
    

复制代码

liulang0808

楼主的模板怎么老是变化呢

miaosano

liulang0808 发表于 2018-9-13 13:03
楼主的模板怎么老是变化呢

抱歉版主，开始传错了，以后定先搞好，谢谢了。、这次不得再麻烦您了。

miaosano

liulang0808 发表于 2018-9-13 13:03
楼主的模板怎么老是变化呢

版主，对不起啊，你原来给我的需要分配的数字是小数，可以分配，您忘了加代码了啊。

liulang0808

miaosano 发表于 2018-9-13 14:54
版主，对不起啊，你原来给我的需要分配的数字是小数，可以分配，您忘了加代码了啊。

什么意思？没有明白，现在的代码不能解决问题吗？

miaosano

liulang0808 发表于 2018-9-13 15:24
什么意思？没有明白，现在的代码不能解决问题吗？

就是最后一个要用来分配的数，是个小数，比如399.2,388.5，之类的，你前面写的能分配出小数，现在分配出来的都是整数，也就是只对整数部分分配，小数就没有了。

liulang0808

miaosano 发表于 2018-9-13 15:44
就是最后一个要用来分配的数，是个小数，比如399.2,388.5，之类的，你前面写的能分配出小数，现在分配出 ...

之前也没有能分配出来小数啊，因为楼主提供的案例里没有小数，所以用int处理的
楼主如果需要小数结果，直接去除int即可