|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
- Sub yy()
- Dim d As New Dictionary, arr, i&
- arr = Sheet2.Range("b3:b" & Sheet2.[b65536].End(xlUp).Row)
- For i = 1 To UBound(arr)
- d(arr(i, 1)) = arr(i, 1)
- Next
- arr = Sheet3.Range("b3:b" & Sheet3.[b65536].End(xlUp).Row)
- For i = 1 To UBound(arr)
- If d.exists(arr(i, 1)) Then
- d.Remove arr(i, 1)
- Else
- d(arr(i, 1)) = arr(i, 1)
- End If
- Next
- Sheet1.Range("A3:A1000") = ""
- Sheet1.Range("A3").Resize(d.Count, 1) = Application.Transpose(d.Keys)
- Application.ScreenUpdating = True
- End Sub
复制代码 |
评分
-
1
查看全部评分
-
|