|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
Sub 按钮1_Click()
Set d = CreateObject("scripting.dictionary")
Application.ScreenUpdating = False
arr = Sheets("清单1").UsedRange
For j = 2 To UBound(arr)
d(arr(j, 1) & "") = ""
Next j
arr = Sheets("清单").UsedRange
r = 1
For j = 2 To UBound(arr)
If d.exists(arr(j, 1) & "") Then
r = r + 1
arr(r, 2) = arr(j, 1)
If r < j Then
For l = 1 To UBound(arr, 2)
arr(r, l) = arr(j, l)
arr(j, l) = ""
Next l
End If
Else
For l = 1 To UBound(arr, 2)
arr(j, l) = ""
Next l
End If
Next j
Sheets("清单").UsedRange = arr
Application.ScreenUpdating = True
End Sub
|
评分
-
1
查看全部评分
-
|