检查工单中指定的序是否存在

garysheep

向大佬讨教，怎样检查工单中指定的序是否存在？
我写了一半代码，后面不知道怎样判断。麻烦各位老师指点。多谢！

taller

shiruiqiang

Qs18

Sub 检查BOM()
    Dim arr, i&, j&
    arr = Sheet1.Range("a1").CurrentRegion
For j = 6 To 18
    For i = 2 To UBound(arr)
        If Sheet1.Cells(1, j) = arr(i, 2) Then
            Sheet1.Cells(2, j) = "★"
        Exit For
        End If
        Next
Next

End Sub

garysheep

taller 发表于 2024-5-22 06:50

用公式也是个不错的思路，感谢！

taller

沈默00

ykcbf1100

字典写一个。感觉还是公式方便一点。

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.5.22
   
2.     Application.ScreenUpdating = False
   
3.     Set d = CreateObject("Scripting.Dictionary")
   
4.     With Sheets("Sheet1")
   
5.         r = .Cells(Rows.Count, 1).End(3).Row
   
6.         arr = .[a1].Resize(r, 3)
   
7.         For i = 2 To UBound(arr)
   
8.             s = CStr(arr(i, 1)) & "|" & CStr(arr(i, 2))
   
9.             d(s) = ""
   
10.         Next
    
11.         r = .Cells(Rows.Count, "e").End(3).Row
    
12.         c = .UsedRange.Columns.Count
    
13.         arr = .[e1].Resize(r, c - 4)
    
14.         For i = 2 To UBound(arr)
    
15.             For j = 2 To UBound(arr, 2)
    
16.                 s = CStr(arr(i, 1)) & "|" & CStr(arr(1, j))
    
17.                 If d.exists(s) Then
    
18.                     arr(i, j) = "★"
    
19.                 End If
    
20.             Next
    
21.         Next
    
22.         .[e1].Resize(r, c - 4).NumberFormatLocal = "@"
    
23.         .[e1].Resize(r, c - 4) = arr
    
24.     End With
    
25.     Application.ScreenUpdating = False
    
26.     MsgBox "OK！"
    
27. End Sub
    

复制代码

沈默00