求助大神！

十二指耳环

工作簿1中的ERP数据，由两个4等级的IC，但是在合并工作簿中没有这两个品番，
现在问题是如何在工作簿1中的G列进行VLookup公式时忽略这两个空IC的品番，而且
还使G列和B列显示的品番和数量相同？球大神给与解答！谢谢

vbee

人工验证比较好

十二指耳环

vbee 发表于 2018-8-17 12:23
人工验证比较好

就是为了方便校对，才做的

microyip

这个用字典对比一下就完了，有什么问题啊

microyip

可以根据不同的“CIRCUIT品番”检查数据

1. Sub CheckData()
   
2.     Dim vData As Variant, nRow As Integer, nCol As Integer
   
3.     Dim vFill As Variant, nI As Integer
   
4.     Dim dicData As Object, dicItem As Object
   
5.     Dim sItem As String, sCircuit As String, nAmount As Double
   
6.     Dim nItemErr As Double, nAmountErr As Double, sKey As String
   
7.    
   
8.     Set dicItem = CreateObject("Scripting.Dictionary")
   
9.     Set dicData = CreateObject("Scripting.Dictionary")
   
10.     vData = Sheet1.UsedRange.Value
    
11.     For nRow = 3 To UBound(vData)
    
12.         sItem = Trim(vData(nRow, 2))
    
13.         If sItem <> "" Then dicItem(sItem) = nRow
    
14.         For nCol = 6 To UBound(vData, 2)
    
15.             If Trim(vData(nRow, nCol)) <> "" Then
    
16.                 nAmount = Val(vData(nRow, nCol))
    
17.                 For nI = 3 To 4
    
18.                     sCircuit = Trim(vData(nI, nCol))
    
19.                     If sItem <> "" And sCircuit <> "" Then dicData(sCircuit & "|" & sItem) = nAmount
    
20.                 Next
    
21.             End If
    
22.         Next
    
23.     Next
    
24.     If dicData.Count = 0 Then
    
25.         MsgBox "没有“合并BOM”资料！"
    
26.         Exit Sub
    
27.     End If
    
28.     With Sheet2
    
29.         sCircuit = Trim(.[B1].Value)
    
30.         If sCircuit = "" Then
    
31.             MsgBox "未填“CIRCUIT品番”！ "
    
32.             .[B1].Select
    
33.         Else
    
34.             vData = .[A1].CurrentRegion.Value
    
35.             If UBound(vData) > 4 Then
    
36.                 ReDim vFill(5 To UBound(vData), 1 To 4)
    
37.                 For nRow = 5 To UBound(vData)
    
38.                     sItem = Trim(vData(nRow, 2))
    
39.                     If dicData.Exists(sCircuit & "|" & sItem) Then vFill(nRow, 3) = dicData(sCircuit & "|" & sItem)
    
40.                     If sItem <> "" Then
    
41.                         If dicItem.Exists(sItem) Then
    
42.                             vFill(nRow, 1) = sItem
    
43.                             vFill(nRow, 2) = True
    
44.                         Else
    
45.                             vFill(nRow, 1) = "Error"
    
46.                             vFill(nRow, 2) = False
    
47.                             nItemErr = nItemErr + 1
    
48.                         End If
    
49.                         vFill(nRow, 4) = vFill(nRow, 3) = Val(vData(nRow, 6))
    
50.                         nAmountErr = nAmountErr - (Not vFill(nRow, 4)) * 1
    
51.                     End If
    
52.                 Next
    
53.                 .[H1] = nItemErr
    
54.                 .[J1] = nAmountErr
    
55.                 .[G5].Resize(UBound(vData) - 4, 4) = vFill
    
56.                 MsgBox "OK!"
    
57.             Else
    
58.                 MsgBox "没有数据！"
    
59.             End If
    
60.         End If
    
61.     End With
    
62. End Sub

复制代码

microyip

根据不同的“CIRCUIT品番”核查数据，附上附件以供参考