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

lyj344600

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

fanyoulin

方法很多，我就用了个比较简单的；

fanyoulin

之前的输出结果与你的要求有的小差别，稍微修改了下，这次完全按照你的要求写的；

LIUZHU

试试JSA的字典（对象），非常适合保存这种数据结构并输出

Qs18

Sub 字典的两层嵌套()
    Dim dBox As Object
    Set dBox = CreateObject("Scripting.Dictionary")
   
    ' 假设数据在A1:D4范围内
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet2") ' 请根据实际情况修改工作表名称
   
    Dim i As Long
    For i = 2 To 4 ' 从第2行开始，到第4行结束
        Dim boxNumber As String
        Dim model As String
        Dim quantity As Long
        
        boxNumber = ws.Cells(i, 1).Value
        model = ws.Cells(i, 2).Value
        quantity = ws.Cells(i, 3).Value
        
        ' 如果字典中还没有这个箱号，则添加
        If Not dBox.Exists(boxNumber) Then
            Set dBox(boxNumber) = CreateObject("Scripting.Dictionary")
        End If
        
        ' 将型号和数量添加到对应箱号的字典中
        dBox(boxNumber)(model) = quantity
    Next i
    ' 打印字典内容
    Dim key As Variant
    For Each key In dBox.Keys
        Debug.Print "Box: " & key
        Dim modelKey As Variant
        For Each modelKey In dBox(key).Keys
            Debug.Print "  Model: " & modelKey & ", Quantity: " & dBox(key)(modelKey)
        Next modelKey
    Next key
End Sub

lyj344600

fanyoulin 发表于 2024-5-21 12:23
之前的输出结果与你的要求有的小差别，稍微修改了下，这次完全按照你的要求写的；

谢谢了,我参照您思路,最终解决了.

lyj344600

我的最终方法如下

chxw68

看似简单的问题却比较烧脑，纯属练习，有时间了再琢磨。

山菊花

供参考。

1. Sub 装箱()
   
2.     Dim nRow%, Arr(), Brr(), Crr(), nXs%, nSl%, nSum%, i%, m%, n%
   
3.     If Range("e3").Value <> "" Then
   
4.         nRow = Range("e2").End(xlDown).Row
   
5.         Range("e2:g" & nRow).ClearContents
   
6.     End If
   
7.     nRow = Range("a2").End(xlDown).Row
   
8.     Arr = Range("a1:b" & nRow).Value
   
9.     n = 1: nXs = WorksheetFunction.Sum(Range("b3:b" & nRow)) \ 162 + 1
   
10.     ReDim Crr(1 To nXs * 2, 1 To 3)
    
11.     For i = 3 To nRow
    
12.         Do While Arr(i, 2) > 0
    
13.             m = m + 1
    
14.             Crr(m, 1) = n & "号箱"
    
15.             Crr(m, 2) = Arr(i, 1)
    
16.             nSl = 162 - nSum
    
17.             If nSl > Arr(i, 2) Then nSl = Arr(i, 2)
    
18.             Crr(m, 3) = nSl
    
19.             nSum = nSum + nSl
    
20.             If nSum = 162 Then nSum = 0: n = n + 1
    
21.             Arr(i, 2) = Arr(i, 2) - nSl
    
22.         Loop
    
23.     Next
    
24.     Range("e2:g2").Value = Array("规格型号", "箱号", "数量")
    
25.     Range("e3").Resize(m, 3).Value = Crr
    
26. End Sub

复制代码

lyj344600

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

谢谢了,我要来好好学习下