|
发表于 2020-1-19 17:56
来自手机
|
显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
本帖最后由 网海遨游 于 2020-1-19 17:58 编辑
看了你那个帖子原件,试试
Sub test()
Application.ScreenUpdating = False
Dim arr, brr(1 to 10000,1 to 3), n%,i%,j%
Set d= CreateObject("scripting.dictionary")
arr = [a1].currentregion.resize(,3)
For i = 1 To UBound(arr)
x = arr(i, 2) & "," & arr(i, 3)
if not d.exists(x) then
d(x)=""
n=n+1
for j=2 to 3
brr(n,j)=arr(i,j)
next j
end if
next i
range("e:f").clearcontents
[e1].resize(ubound(brr),2)=brr
Application.ScreenUpdating =true
end sub
|
|