仓库批次号录入管理

windbalance

各位老师好，想通过录入流水表单sheet(流水明细2)，然后通过VBA识别，通过匹配"零件编号"在另一个表中，将流水表中 批次号、数量依次录在sheet(流水明细库存信息)表里。1. 基本程序

Sub 星形八角2_Click()
Dim arr(), brr()
arr = Sheet4.Range("b2").CurrentRegion
brr = Sheet5.Range("a1").CurrentRegion
For i = 2 To UBound(arr)
  For j = 2 To UBound(brr)
  If arr(i, 2) = brr(j, 1) Then
   brr(j, 7) = arr(i, 7)
   brr(j, 8) = arr(i, 9)
   Range("g" & j) = brr(j, 7)
   Range("h" & j) = brr(j, 8)
  End If
  Next
Next
End Sub



2. 请教: ① 用数组来匹配，但速度依然很慢，还请各位老师指点
            ② 批次号、数量依次填写，还未实现，还请老师协助，谢谢

3190496160

Sub 星形八角2_Click()
Dim arr As Variant, brr As Variant
Dim d As Object
Set d = CreateObject("scripting.dictionary")
arr = Sheet4.Range("a1").CurrentRegion
With Sheets("流水明细库存信息")
    brr = .Range("a1").CurrentRegion
    For i = 2 To UBound(brr)
        If Trim(brr(i, 1)) <> "" Then
            d(Trim(brr(i, 1))) = i
        End If
    Next i

    For i = 2 To UBound(arr)
        If Trim(arr(i, 2)) <> "" Then
            n = d(Trim(arr(i, 2)))
            If n <> "" Then
                y = .Cells(n, Columns.Count).End(xlToLeft).Column + 1
               .Cells(n, y) = arr(i, 7)
               .Cells(n, y + 1) = arr(i, 4)
            End If
        End If
    Next i
End With
MsgBox "ok!"

End Sub

3190496160

3190496160

1，Dim arr(), brr()  这种数组定义方式是错误的，你需要定义的是固态数组，而不是动态数组，
2、采用字典匹配速度不是问题，

windbalance

3190496160 发表于 2021-3-8 08:36
1，Dim arr(), brr()  这种数组定义方式是错误的，你需要定义的是固态数组，而不是动态数组，
2、采用字典 ...

可以使用，感谢老师的指点，我一定好好学习，不懂之处还望不吝赐教。