[已解决]怎么在二个二维数组中比较大小，返回值？

moming0211

标准                                数据表                               
BOX   A        B                A        B         需要返回的值（Box）               
1-        381        494                500        690                例：这里应该返回：6-       
3-        459        530                790        1030                       
5-        560        680                920        1030                       
6-        625        765                500        600                       
8-        740        935                800        1030                       
9-        790        1030                                               
10-        820        1060                                               
11-        940        1140                                               
12-        1060        1060                                               
13-        1170        1440                数据表的A跟标准中的A比较，同时数据表的B跟标准表中的B比较。取大的值。                               

最佳答案

月排行榜 / 总排行榜

dsmch

2014-4-4 06:25

………………

跳转到最佳答案楼层

那么的帅

提供数据附件，举例再多几个
并说明解决方法，函数，还是VBA代码？

pengyx

完全搞不懂如何比较，无论如何大值都不是6-

moming0211

不好意思，描述的不够明白。
可以理解成纸箱。纸箱的二边必须大于物品的二边。这个数组就是长和宽。
先谢谢了。

moming0211

使用VBA解决。

moming0211

那么的帅 发表于 2014-4-3 15:55
提供数据附件，举例再多几个
并说明解决方法，函数，还是VBA代码？

为什么第一个发求助贴的时候没有添加附件的按钮。

pengyx

取与标准相差之和最小的正值，可能你是这个意思

dsmch

1. Sub Macro1()
   
2. Dim arr, brr, crr, i&, j&
   
3. arr = Range("a2").CurrentRegion
   
4. brr = Range("f2").CurrentRegion
   
5. ReDim crr(1 To UBound(brr) - 2, 1 To 1)
   
6. For i = 3 To UBound(brr)
   
7.     For j = 3 To UBound(arr)
   
8.         If arr(j, 2) >= brr(i, 1) And arr(j, 3) >= brr(i, 2) Then
   
9.             crr(i - 2, 1) = arr(j, 1): Exit For
   
10.         End If
    
11.     Next
    
12. Next
    
13. Range("h3").Resize(UBound(crr)) = crr
    
14. End Sub
    

复制代码

dsmch

………………

moming0211

pengyx 发表于 2014-4-3 20:59
取与标准相差之和最小的正值，可能你是这个意思

谢谢你的回复，我的思维还没跟你上的，看答案是正确的。