|
- Sub Macro1()
- Dim arr, brr, d, myapth$, i&, j%, s&
- Set d = CreateObject("scripting.dictionary")
- myPath = ThisWorkbook.Path & ""
- Application.ScreenUpdating = False
- With GetObject(myPath & "\B.xls")
- arr = .Sheets(1).Range("a1").CurrentRegion
- For i = 2 To UBound(arr)
- d(arr(i, 1)) = ""
- Next
- .Close 0
- End With
- With GetObject(myPath & "\A.xls")
- arr = .Sheets(1).Range("a1").CurrentRegion
- ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2))
- For i = 1 To UBound(arr)
- If Not d.exists(arr(i, 1)) Then
- s = s + 1
- For j = 1 To UBound(arr, 2)
- brr(s, j) = arr(i, j)
- Next
- End If
- Next
- .Close 0
- End With
- ActiveSheet.UsedRange.ClearContents
- Range("a1").Resize(s, UBound(brr, 2)) = brr
- Application.ScreenUpdating = True
- End Sub
复制代码 |
|