关于调货，初学一个礼拜的小白，请大神指教

zuiaijiushi

初学者，对啥都是一知半解，写了个配货的码

选区内是需要货的数量

选区里是可以调货的数量

这个是要的结果

初学者，很多东西不懂，见谅
求助问题：
1，定义区域为数组，有没有这样的数组？定义选区内数据发生变化，数组事实更新的，自己用的是不停重新定义数组的笨方法
2，字典功能对这种配货问题有没有用？拿到一个数据，先匹配货号，出色号，再出对应码和数量，再运算，不知道怎么写，如果可行，哪位大神受累帮忙改一改

码如下，附件里也有，要的效果是找出两表对应的款色码，反馈到“调拨结果”，用的方法很笨，很多重复无用的运算，定义了三个变量，要运算806*1631*6次，弄少量数据实验没问题，正式配货，excel直接无响应，等一个小时也出不了结果，请大神们帮忙改进，多谢拉！！！！





Sub 配货aa()


Dim i, j, k As Integer
Dim arr1
Dim arr2
arr1 = Sheets("调入").Range("a1:s" & Sheets("调入").Range("a66666").End(xlUp).Row)
arr2 = Sheets("调出").Range("a1:s" & Sheets("调出").Range("a66666").End(xlUp).Row)

t = Timer

For k = 13 To 18



3: arr1 = Sheets("调入").Range("a1:s" & Sheets("调入").Range("a66666").End(xlUp).Row)
arr2 = Sheets("调出").Range("a1:s" & Sheets("调出").Range("a66666").End(xlUp).Row)
    For i = 2 To UBound(arr1)

     If Sheets("调入").Cells(i, k) = "" Or Sheets("调入").Cells(i, k) < 1 Then
            GoTo 1
     End If


        For j = 2 To UBound(arr2)


            If Sheets("调出").Cells(j, k) = "" Or Sheets("调出").Cells(j, k) < 1 Then
            GoTo 2

            ElseIf arr1(i, 2) = arr2(j, 2) And arr1(i, 3) = arr2(j, 3) Then
            Sheets("调出").Range("a" & j & ":" & "c" & j).Copy Sheets("调拨结果").Range("a" & Sheets("调拨结果").Range("a104856").End(xlUp).Row + 1)

            Sheets("调拨结果").Cells(Sheets("调拨结果").Range("a104856").End(xlUp).Row, k) = Application.WorksheetFunction.Min(Sheets("调入").Cells(i, k), Sheets("调出").Cells(j, k))
            Sheets("调拨结果").Range("T" & Sheets("调拨结果").Range("a104856").End(xlUp).Row) = Sheets("调入").Range("a" & i)

            Sheets("调出").Cells(j, k) = Sheets("调出").Cells(j, k) - Application.WorksheetFunction.Min(arr1(i, k), arr2(j, k))
            Sheets("调入").Cells(i, k) = Sheets("调入").Cells(i, k) - Application.WorksheetFunction.Min(arr1(i, k), arr2(j, k))

            GoTo 3

            End If


2:      Next


1:     Next

Next


MsgBox "用时" & Format(Timer - t, "0.000") & "秒"




End Sub

zuiaijiushi

大家别试我的代码了，后面加了个K变量，没细想，直接成死循环了，逻辑还要捋一捋，回家了整理下

zuiaijiushi

另外if条件也忘了换成数组了