数组删除一行_VBA利用字典删除重复行，保留唯一值

源数据及要求：删除黄忠和庞统的各一行重复数据，两个孙权因为班级不同，保留

数据结果展示：

代码解析：

Sub DeleteSameRow1()

'删除所有重复行，保留唯一值

Dim LastRow As Long

Dim i, k, n As Long

Dim arr, brr()

Dim str As String

Application.ScreenUpdating = False

'关闭屏幕更新，以提高宏的运行效率

'建立字典对象

Set d = CreateObject("scripting.dictionary")

LastRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row

'返回第一列最后一个非空行

'将数据区域导入数组