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

Question

如题所述

Answer 1

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) = ""

Next

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

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

End Sub

学习VBA可以关注下  ä¼˜é…· 小徐的部落  VBA入门教程第一季

Answer 2

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