[已解决]求一个VBA，谢谢各位大大。。。。万分感谢！！

dsmch

………………

che_dream

dsmch 发表于 2014-4-11 18:47
………………

黄色部分出现在表一表二表二中均正常，在表四中时有异常，再帮我看看，谢谢。

dsmch

Sub Macro2()
On Error Resume Next
Dim arr, brr, d, i%, j&, s&
Set d = CreateObject("scripting.dictionary")
Sheets("表五").Activate
ActiveSheet.UsedRange.Clear
arr = Sheet1.Range("a2").CurrentRegion
For i = 3 To 6
    brr = Sheets(i).Range("a3").CurrentRegion
    For j = 2 To UBound(brr)
        d(brr(j, 1)) = ""
    Next
Next
s = 3
Sheet1.[a2].Resize(1, 7).Copy [a3]
For j = 2 To UBound(arr)
    If Not d.exists(arr(j, 1)) Then
        s = s + 1
        Sheet1.Cells(j + 1, 1).Resize(1, 7).Copy Cells(s, 1)
    End If
Next
End Sub

che_dream

dsmch 发表于 2014-4-12 12:04
Sub Macro2()
On Error Resume Next
Dim arr, brr, d, i%, j&, s&

我又将黄色部分分别到表一表二表三表四的时候 ，在表五中不能正常显示，再帮我看看，谢谢！

che_dream

dsmch 发表于 2014-4-11 12:55
建议完善附件并模拟结果

这两天用的时候发现，即时库存中有些可能没有，比如，04.1040005这个即时库存中没有些编号的时候，我想让后面空白，就是把之前的清除掉，现在运行还是以前的，没有变化。再帮我看看附件，谢谢。。。