一个数据分配问题。

miaosano

liulang0808 发表于 2018-9-13 16:18
之前也没有能分配出来小数啊，因为楼主提供的案例里没有小数，所以用int处理的
楼主如果需要小数结果， ...

就是把int（sm/a+0.5）这个前面的int去掉么？

liulang0808

miaosano 发表于 2018-9-13 16:42
就是把int（sm/a+0.5）这个前面的int去掉么？

楼主可以去掉试试看的

luzeners

liulang0808 发表于 2018-9-3 14:17

借楼，请版主出马，帮忙看看！谢谢！

miaosano

liulang0808 发表于 2018-9-13 16:54
楼主可以去掉试试看的

去了就乱了，版主大大，帮忙搞一搞啊。急人啊

liulang0808

miaosano 发表于 2018-9-14 08:01
去了就乱了，版主大大，帮忙搞一搞啊。急人啊

针对当前的需求，楼主再模拟一下需求吧

miaosano

liulang0808 发表于 2018-9-14 08:14
针对当前的需求，楼主再模拟一下需求吧

只有请版主出马啊，感谢您了，

liulang0808

miaosano 发表于 2018-9-14 08:28
只有请版主出马啊，感谢您了，

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.                         If a = 1 Then
    
18.                             arr(j, i) = sm
    
19.                         Else
    
20.                             arr(j, i) = (Int(sm / a) + 0.5)
    
21.                             sm = sm - arr(j, i)
    
22.                             a = a - 1
    
23.                         End If
    
24.                     End If
    
25.                 End If
    
26.                Next i
    
27.             End If
    
28.         End If
    
29.     Next j
    
30.     Range("a1:ag31") = arr
    
31.     Application.ScreenUpdating = True
    
32. End Sub

复制代码

liulang0808

本来取消int也可以，但是由于使用除法，不能整除，取数会出麻烦的

miaosano

liulang0808 发表于 2018-9-14 08:57
本来取消int也可以，但是由于使用除法，不能整除，取数会出麻烦的

真的很感谢您，麻烦您这么多次，谢谢您的热心帮助，相信论坛。

miaosano

liulang0808 发表于 2018-9-14 08:57
本来取消int也可以，但是由于使用除法，不能整除，取数会出麻烦的

整数的也分成小数了啊，最后麻烦一次，能不能对是整数的不分成小数，分成整数呢。最后一次，这次以后再不问了。