|
本帖最后由 vbyou127 于 2016-6-21 09:47 编辑
用VBA 依据A列编码,B列已盘点,统计C点未盘点编码有多少
代码如下: - Option Explicit
- Sub xx()
- Dim n&, arr, brr, n1&, d, i&, crr
- Set d = CreateObject("scripting.dictionary")
- With Sheet2
- n = .Cells(.Rows.Count, 1).End(xlUp).Row
- arr = .Range("A2:A" & n)
- n1 = .Cells(.Rows.Count, 2).End(xlUp).Row
- brr = .Range("B2:B" & n1)
- For i = 1 To n - 1
- If arr(i, 1) <> "" And Not d.Exists(arr(i, 1)) Then d.Add arr(i, 1), ""
- Next
- For i = 1 To n1 - 1
- If d.Exists(brr(i, 1)) Then d.Remove brr(i, 1)
- Next
- crr = d.keys
- .Range("c2").Resize(d.Count, 1) = Application.WorksheetFunction.Transpose(crr)
- End With
- End Sub
复制代码
|
|