|
参与一下。。。
- Sub ykcbf() '//2024.9.20
- Application.ScreenUpdating = False
- Set d = CreateObject("Scripting.Dictionary")
- Set d1 = CreateObject("Scripting.Dictionary")
- arr = Sheets("Sheet1").UsedRange
- For i = 2 To UBound(arr)
- If arr(i, 1) <> Empty Then
- d(arr(i, 1)) = ""
- End If
- Next
- brr = Sheets("Sheet2").UsedRange
- For i = 2 To UBound(brr)
- If brr(i, 1) <> Empty Then
- d1(brr(i, 1)) = ""
- End If
- Next
- ReDim zrr(1 To 10000, 1 To 3)
- For i = 2 To UBound(arr)
- s = arr(i, 1)
- If Not d1.exists(s) Then
- m = m + 1
- zrr(m, 1) = s
- zrr(m, 3) = s
- End If
- Next
- n = 0
- For i = 2 To UBound(brr)
- s = brr(i, 1)
- If Not d.exists(s) Then
- n = n + 1
- zrr(n, 2) = s
- zrr(m + n, 3) = s
- End If
- Next
- Set d = Nothing
- Set d1 = Nothing
- With Sheets("Sheet3")
- .UsedRange.Offset(1).ClearContents
- .[a2].Resize(m + n, 3) = zrr
- End With
- Application.ScreenUpdating = True
- MsgBox "OK!"
- End Sub
复制代码
|
|