如何进行两张表格多个条件的运算

liulang0808

louisyin 发表于 2018-6-23 14:59
版主大人，非常感谢。测试了一下代码，上面三点问题都解决了。但是新出现了一个小问题。
入库管理sheet ...

Sub 按钮2_Click()
    Application.ScreenUpdating = False
    Set d = CreateObject("scripting.dictionary")
    arr = Sheets("库存信息").[a1].CurrentRegion
    For j = 2 To UBound(arr)
        d(arr(j, 2) & arr(j, 5)) = j
    Next j
    r = UBound(arr) + 1
    arr = Sheets("入库管理").[a1].CurrentRegion
    With Sheets("库存信息")
        For j = 2 To UBound(arr)
            If arr(j, 2) <> "已入库" Then
                arr(j, 2) = "已入库"
                If d.exists(arr(j, 3) & arr(j, 6)) Then
                    .Cells(d(arr(j, 3) & arr(j, 6)), 6) = arr(j, 7) + .Cells(d(arr(j, 3) & arr(j, 6)), 6)
                Else
                    Cells(j, 3).Resize(1, 6).Copy .Cells(r, 2)
                    d(arr(j, 3) & arr(j, 6)) = r
                    .Cells(r, 1) = r - 1
                    r = r + 1
                End If
            End If
        Next j
    End With
    Sheets("入库管理").[a1].CurrentRegion = arr
    Application.ScreenUpdating = True
End Sub
楼主的原表内有不可见字符导致的

liulang0808

louisyin 发表于 2018-6-23 15:01
arr和j在反复使用，看的不是很懂。  d(arr(j, 2) & arr(j, 5)) = j 知道是啥意思？代码基本改不动，望版 ...

再次使用的时候，对应区域就改变了，重新使用了
d(arr(j, 2) & arr(j, 5)) 物料编号跟批号的组合，用户判断是否已经存在

louisyin

liulang0808 发表于 2018-6-23 16:06
再次使用的时候，对应区域就改变了，重新使用了
d(arr(j, 2) & arr(j, 5)) 物料编号跟批号的组合，用户 ...

感谢版主，通过debug看明白了