Excel 如何用vba多列删除重复项

发布网友发布时间：2022-04-29 20:28

共2个回答

热心网友时间：2022-06-22 10:00

Sub 删除重复项()

Dim arr, d

Dim i As Integer, c As Range

Set d = CreateObject("Scripting.Dictionary")

arr = Application.InputBox("请用鼠标选择你需要操作的区域", Type:=8)

For Each arr1 In arr

d(arr1) = ""

Set c = Application.InputBox("请用鼠标选择你放置的单元格", Type:=8)

c.Resize(d.Count) = Application.Transpose(d.keys)

End Sub

学习VBA可以关注下优酷小徐的部落 VBA入门教程第一季

热心网友时间：2022-06-22 10:00

你这个重点不是删除重复项，关键是多列。他提供的完全可以解决你的单列重复项删除。
问题是你的多列删除需要进一步解释清楚

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com