自动计算货物最大摆放数量（根据给出的容器尺寸）

一束苍穹

问题描述如上图所示。这个需求有点类似集装箱的装箱计算，但不需要计算层数（忽略高度），只需要计算根据货物的长宽（货物长宽为基础数据）与容器的长宽（容器长宽为变量）来计算货物在该容器中的平面摆放数量。

比较麻烦的是如何最大化利用容器面积来使得码放的货物箱数最大化。实际工作中，货物长宽数据（基础数据）可能会有数千或数万行。

希望能够根据B列C列的货物长宽数据，以及容器长宽变量值（手动输入L1与W1），计算“最大摆放数量”，以及“最大外轮廓长(L2)”与“最大外轮廓宽(W2)”。

求助~~
货物码放数量计算_V01.7z (36.21 KB, 下载次数: 0)

昨天 11:35 上传

点击文件名下载附件

廖贤军

求大神相助

镜子花

这个不属于Excel问题

常平

AI的答案，仅供参考
Function MaxBoxCountWithSize(containerLength As Integer, containerWidth As Integer, _
                            itemLength, itemWidth, _
                            ByRef maxLength As Long, ByRef maxWidth As Long) As Long
    ' 初始化最大数量和占用尺寸
    Dim maxCount As Integer
    maxCount = 0
    maxLength = 0
    maxWidth = 0
   
    ' 方案1：货物不旋转
    Dim count1 As Integer
    Dim layout1Length As Integer, layout1Width As Integer
    count1 = (containerLength \ itemLength) * (containerWidth \ itemWidth)
    layout1Length = (containerLength \ itemLength) * itemLength
    layout1Width = (containerWidth \ itemWidth) * itemWidth
   
    ' 方案2：货物旋转
    Dim count2 As Integer
    Dim layout2Length As Integer, layout2Width As Integer
    count2 = (containerLength \ itemWidth) * (containerWidth \ itemLength)
    layout2Length = (containerLength \ itemWidth) * itemWidth
    layout2Width = (containerWidth \ itemLength) * itemLength
   
    ' 比较两种基本方案
    If count1 > maxCount Then
        maxCount = count1
        maxLength = layout1Length
        maxWidth = layout1Width
    End If
   
    If count2 > maxCount Then
        maxCount = count2
        maxLength = layout2Length
        maxWidth = layout2Width
    End If
   
    ' 方案3：水平分割混合摆放
    Dim h As Integer
    Dim stepSize As Integer
    stepSize = Application.WorksheetFunction.Gcd(itemWidth, itemLength)
    If stepSize = 0 Then stepSize = 1 ' 避免除零错误
   
    For h = 0 To containerWidth Step stepSize
        ' 顶部区域（不旋转）
        Dim topCount As Integer
        Dim topLength As Integer, topWidth As Integer
        topCount = (containerLength \ itemLength) * (h \ itemWidth)
        topLength = (containerLength \ itemLength) * itemLength
        topWidth = (h \ itemWidth) * itemWidth
        
        ' 底部区域（旋转）
        Dim bottomCount As Integer
        Dim bottomLength As Integer, bottomWidth As Integer
        bottomCount = (containerLength \ itemWidth) * ((containerWidth - h) \ itemLength)
        bottomLength = (containerLength \ itemWidth) * itemWidth
        bottomWidth = ((containerWidth - h) \ itemLength) * itemLength
        
        ' 计算整体占用尺寸
        Dim totalCount As Integer
        Dim totalLength As Long, totalWidth As Long
        totalCount = topCount + bottomCount
        totalLength = containerLength ' 水平方向满宽
        totalWidth = topWidth + bottomWidth
        
        ' 更新最优方案
        If totalCount > maxCount Or (totalCount = maxCount And totalLength * totalWidth > maxLength * maxWidth) Then
            maxCount = totalCount
            maxLength = totalLength
            maxWidth = totalWidth
        End If
    Next h
   
    ' 方案4：垂直分割混合摆放
    Dim v As Integer
    For v = 0 To containerLength Step stepSize
        ' 左侧区域（不旋转）
        Dim leftCount As Integer
        Dim leftLength As Integer, leftWidth As Integer
        leftCount = (v \ itemLength) * (containerWidth \ itemWidth)
        leftLength = (v \ itemLength) * itemLength
        leftWidth = (containerWidth \ itemWidth) * itemWidth
        
        ' 右侧区域（旋转）
        Dim rightCount As Integer
        Dim rightLength As Integer, rightWidth As Integer
        rightCount = ((containerLength - v) \ itemWidth) * (containerWidth \ itemLength)
        rightLength = ((containerLength - v) \ itemWidth) * itemWidth
        rightWidth = (containerWidth \ itemLength) * itemLength
        
        ' 计算整体占用尺寸
        totalCount = leftCount + rightCount
        totalLength = leftLength + rightLength
        totalWidth = containerWidth ' 垂直方向满高
        
        ' 更新最优方案
        If totalCount > maxCount Or (totalCount = maxCount And totalLength * totalWidth > maxLength * maxWidth) Then
            maxCount = totalCount
            maxLength = totalLength
            maxWidth = totalWidth
        End If
    Next v
   
    ' 返回最大数量
    MaxBoxCountWithSize = maxCount
End Function
Sub CalculateMaxBoxesWithSize()
    Dim containerL As Integer, containerW As Integer
    Dim itemL As Integer, itemW As Integer
   
    ' 容器尺寸
    containerL = Range("c2")
    containerW = Range("f2")
   
    ar = Range("a4").CurrentRegion
   
    ' 计算最大装箱数量及占用尺寸
    Dim maxCount As Integer
    Dim usedLength As Long, usedWidth As Long
    For i = 2 To UBound(ar)
        If ar(i, 2) > 0 And ar(i, 3) > 0 Then
        maxCount = MaxBoxCountWithSize(containerL, containerW, ar(i, 2), ar(i, 3), usedLength, usedWidth)
        ar(i, 4) = maxCount
        ar(i, 5) = usedLength
        ar(i, 6) = usedWidth
        End If
    Next
    Range("a4").CurrentRegion = ar
End Sub

华铭

多谢多谢。可以用，我再多测试测试，感激

易赫斋风水社

纯属好奇。请问若是你遇到这类问题，会先想到用什么工具来解决？不是用Excel的话是会用别的什么吗？别的工具中的代码或逻辑能否用到VBA中？

女人是公主

肯定能啦，一通百通，缺点是excel代码执行效率很低

雷霆之怒

ai也没那么智能，第105行应该是13个才对

周剑君

最大尺寸就错得太多了

华夏战神

很低？ Excel什么代码效率低呢？