综合运用(盘点清单核对)VBA

nnsea

Option Explicit

Sub 测试()
Dim rng As Range, rngs As Range, k%, a, b
For Each rng In [a2:a6]
        a = rng.Value
    For Each rngs In [b2:b4]
        b = rngs.Value
        If rng = rngs Then
            GoTo 100
        End If
    Next rngs
    k = k + 1
    Cells(k + 1, "c") = rng
100:
Next rng
End Sub


Sub 未盘点编码()
Dim rng As Range, rngs As Range, k%
For Each rng In [a1:a796]
    For Each rngs In [g1:g175]
        If rngs = rng Then
            GoTo 100
        End If
    Next rngs
    k = k + 1
    Cells(k, "h") = rng
100:
Next rng
End Sub