求助_这种数据结构如何用字典保存_并且方便输出

lyj344600

山菊花 发表于 2024-5-21 19:12
供参考。

  Do While Arr(i, 2) > 0 当看到这句时,我豁然开朗,我最开始的思路也是这样,但想着用递归去解决,结果思路越复杂.

lyj344600

山菊花 发表于 2024-5-21 19:12
供参考。

但还是请教下版主,能不能用字典保存这样的数据了,第一项有一条记录,第二项有二条记录,第三项有n条记录,但最后合并成一个二维数组

山菊花

lyj344600 发表于 2024-5-22 08:46
但还是请教下版主,能不能用字典保存这样的数据了,第一项有一条记录,第二项有二条记录,第三项有n条记录,但 ...

字典用在你的代码中合适，我的代码加上字典就变画蛇添足了。

lyj344600

山菊花 发表于 2024-5-22 08:53
字典用在你的代码中合适，我的代码加上字典就变画蛇添足了。

版主:再向您请教下问题,就是我用两个do循环来处理,思路是这样的
do
     do
     loop while 某个型号为零
loop while 盒子装满162个
但是之间细节不知如何处理,能否指导下.

山菊花

lyj344600 发表于 2024-5-24 08:34
版主:再向您请教下问题,就是我用两个do循环来处理,思路是这样的
do
     do

没明白你的思路。

lyj344600

山菊花 发表于 2024-5-24 21:04
没明白你的思路。

是这样的,你的思路确实好,但是也太巧妙了,很难想到,所以我就想能不能想个死办法,
就是两个循环处理.第一个(层)循环处理箱子,把这个箱子装满为止,另一个循环处理相应货物,把某个型号的货物处理完为止,现在问题是,中间思路不知怎么处理,而且我觉得,如果这条思路打通了,可以处理很多问题,不用技巧,就是堆循环.
恳请不吝赐教.

现在的问题,就是不知道每次装箱后余数和后一型号数量如何衔接.
到目前为止你的思路还是没看懂,特别这段:

            nSl = 162 - nSum
            If nSl > arr(i, 2) Then nSl = arr(i, 2)
            Crr(m, 3) = nSl
            nSum = nSum + nSl
            If nSum = 162 Then nSum = 0: n = n + 1


Sub c()
Dim zx As Integer, ys As Integer, k As Integer, n As Integer


Dim cel As Range, arr(1 To 100, 1 To 3) As Variant
For Each cel In Range("a3:a9")
ys = cel.Offset(0, 1).Value - zx
    Do While ys > 0
    k = k + 1
    If ys >= 162 Then
        n = n + 1
        arr(k, 1) = n & "号箱"
        arr(k, 2) = cel.Value
        arr(k, 3) = 162
        ys = ys - 162
    Else
        n = n + 1
        arr(k, 1) = n & "号箱"
        arr(k, 2) = cel.Value
        arr(k, 3) = ys
        zx = ys
        ys = 0
    End If
    Loop