多列数据装入字典，重新排列后录入工作表

枫丹白露

taller 发表于 2024-4-26 10:47
为什么不能按要求提取？你尝试过什么代码？

2楼问题没有解决的话，没法有代码

Private Sub UserForm_Initialize() '窗体初始化

    Dim arr, brr(), k, j, x

    arr = Sheet3.Range("c3:ab2000" ) '数据源



    k = 0

    For x = 1 To UBound(arr)

        ReDim Preserve brr(1 To UBound(arr), 1 To 28)



            k = k + 1

            For j = 1 To 28

                    brr(k, j) = arr(x, j)   '这里要怎么提取我需要的11列呢

            Next

    Next



With ListBox1 '设置列表框属性

    .List = brr

    .Font.Size = 11 '字号12

    .ForeColor = vbBlue '字色蓝

    .ColumnCount = 11 '列数

    .ColumnWidths = "20,70,50,50,50,45,42,45,45,45,45,45" '列宽

End With

End Sub

3190496160

枫丹白露 发表于 2024-4-26 10:43
谢谢，测试了内存溢出，好象是这句不对：  .List = brr

这句代码本身并没有任何问题，之所以会出现溢出的错误，是因为你做表格的习惯太差，订单这个工资表内，整个工作表都设置了的一个背景色，导致文件体积太大，如果计算机配置稍差一点，系统资源就会不足，就会提示溢出

3190496160

枫丹白露

3190496160 发表于 2024-4-26 11:37
这句代码本身并没有任何问题，之所以会出现溢出的错误，是因为你做表格的习惯太差，订单这个工资表内，整 ...

我是因为数据太多，所以做了条件格式，不同的要素区分了底色

枫丹白露

taller 发表于 2024-4-26 06:31
另外，你的需求无需去重或者计数，为啥要使用字典呢？直接由arr数组中提取相应列保存到brr数组中就可以了

是的，不用到字典，是我想复杂了，谢谢

枫丹白露

taller 发表于 2024-4-26 06:30
'第1列客户，第2列内部简称，第3列订单欠数，第4列合同号，第5列订单号，第6列编码，第7列物料，第8列工装 ...

是我想复杂了，已经弄好了，更新在1楼