使用VBA删除重复项（不使用字典）

VBA是一种强大的编程语言，可以在Excel中对数据进行处理和操作。其中一个常见的需求是删除重复项。尽管网上有很多关于使用字典来删除重复项的经验分享，但我们可以利用split函数巧妙地实现这个功能。

设计思路

我们可以使用like作为判断条件，遍历所有单元格，将不重复的值连接成一个用特定符号隔开的字符串，然后使用split函数将字符串转化成数组。这样就能得到不重复的数值数组了。然后我们可以将该数组黏贴到指定的目标区域。

实现方法

首先，假设A列是我们要处理的数据，包含了重复的项目。我们要将这些重复的项目剔除，并将结果贴在C列上。

1. 打开Excel，按下快捷键"Alt F11"进入VBE编辑器。新建一个模块，输入以下代码：

```

Sub 提取唯一值()

Dim Rng As Range

Dim Str As String

Dim EndRowNo As Integer

'找出A列最大行数

EndRowNo Range("A1").End(xlDown).Row

For Each Rng In Range("A2:A" EndRowNo)

'遍历A列每一个单元格，如果没有和之前的值重复则合并到Str里去，并用"/"隔开

If Not Str Like "*" Rng "*" Then '用Not like判断值是否已经合并过

Str Str "/" Rng

End If

Next

Str VBA.Mid(Str, 2, Len(Str)) '把生成的字符串中第一个"/"号去掉

Dim arr

arr Split(Str, "/") '使用split函数生成数组，这个数组内的元素就是我们要找的唯一值了

Range("C2:C" UBound(arr) 2) (arr) '把生成的数组贴到目标区域

End Sub

```

2. 回到Excel表格，将VBE编辑器缩小，并按下运行键。您会发现唯一值已经提取到C列中了。

代码解释

让我们简单解释一下代码：

- `Dim arr`：声明不定数组的方式，不需要加上arr()。

- `Split(Str, "/")`：split函数可以将字符串按某分割符号转化成数组。在我们的代码中，我们使用"/"作为分隔符，您也可以根据需要替换为其他符号。

- `UBound(arr) 2`：UBound找出的是数组的最大下标，由于数组的索引从0开始，所以实际元素的数量要加1。另外，由于我们要将数据粘贴到C列，从第二行开始，所以需要再加上1。因此，C列的行数就是数组的最大下标 2。

- `(arr)`：单元格黏贴数组的时候，默认一维数组是"行"的形式。但我们的目标是C列，即"列"的形式。所以我们使用`Transpose`函数将数组转置，确保数据能正确粘贴到C列。

总结

本文介绍了如何使用VBA删除重复项，并且不使用字典。通过巧妙地利用split函数，我们可以轻松地实现这个功能。希望本文对您有所帮助！

版权声明：本文内容由互联网用户自发贡献，本站不承担相关法律责任.如有侵权/违法内容,本站将立刻删除。