求助：从A列中找出2到3数值相加

sdfsadfsa

从A列中找出2到3数值相加等于39.0—40.0，然后这2到3个数值在原A列中清为0值，再找找出2到3数值相加等于39.0—40.0，不断重复这操作，直到不再有2~3个数值满足39.0—40.0之和的条件为止。

liulang0808

1. Sub 按钮2_Click()
   
2.     a = -1
   
3.     r = 0
   
4.     Dim arr(1 To 3)
   
5.     Application.ScreenUpdating = False
   
6.     For j = 390 To (390 / 2) - 10 Step -1
   
7.         a = a + 1
   
8.         x = 1
   
9.         arr(1) = j
   
10.         sm = Cells(j, 1)
    
11.         For i = 1 To 390 / 2
    
12.             If Cells(i, 1) > 0 Then
    
13.                 sm = sm + Cells(i, 1)
    
14.                 x = x + 1
    
15.                 arr(x) = i
    
16.                 If sm >= 40 Then
    
17.                     Exit For
    
18.                 Else
    
19.                     If x = 3 Then
    
20.                         If sm <= 39 Then
    
21.                             Exit For
    
22.                         Else
    
23.                             r = r + 1
    
24.                             For k = 1 To 3
    
25.                                 Cells(r, 8 + k) = Cells(arr(k), 1)
    
26.                                 Cells(arr(k), 1) = 0
    
27.                             Next k
    
28.                             Exit For
    
29.                         End If
    
30.                     Else
    
31.                         If sm > 39 And sm < 40 Then
    
32.                             r = r + 1
    
33.                             For k = 1 To 2
    
34.                                 Cells(r, 8 + k) = Cells(arr(k), 1)
    
35.                                 Cells(arr(k), 1) = 0
    
36.                             Next k
    
37.                             Exit For
    
38.                         End If
    
39.                     End If
    
40.                 End If
    
41.             End If
    
42.         Next i
    
43.     Next j
    
44.     Application.ScreenUpdating = True
    
45. End Sub
    

复制代码

liulang0808

附件内容供参考。。。。。。

sdfsadfsa

liulang0808 发表于 2018-10-11 07:55
附件内容供参考。。。。。。

可惜不具备实用性啊，换成1到50，步长为1的时候，动都不会动....

liulang0808

sdfsadfsa 发表于 2018-10-11 12:24
可惜不具备实用性啊，换成1到50，步长为1的时候，动都不会动....

不好意思啊，没有完成楼主的要求啊

zopey

A列相加.zip (29.46 KB, 下载次数: 1)

2018-10-11 15:43 上传

点击文件名下载附件

sdfsadfsa

liulang0808 发表于 2018-10-11 13:30
不好意思啊，没有完成楼主的要求啊

没有啊，当爱好练练挺好的

liulang0808

sdfsadfsa 发表于 2018-10-11 18:20
没有啊，当爱好练练挺好的

呵呵，谢谢楼主的鼓励。
目前取值是39到40之间的小数，1到50，步长为1，应该没有满足这个区间的数据吧？理解能力有限，没有太明白

sdfsadfsa

zopey 发表于 2018-10-11 15:43

还是不具备实用性啊，A列数据会强制变化的，谢谢了

zopey

sdfsadfsa 发表于 2018-10-11 18:33
还是不具备实用性啊，A列数据会强制变化的，谢谢了

就题论题 ，10- 500 按要求写出来代码给你了。
你不会 灵活修改 是你的事！