VBA是一種強大的編程語言，可以在Excel中對數(shù)據進行處理和操作。其中一個常見的需求是刪除重復項。盡管網上有很多關于使用字典來刪除重復項的經驗分享，但我們可以利用split函數(shù)巧妙地實現(xiàn)這個功能。設

VBA是一種強大的編程語言，可以在Excel中對數(shù)據進行處理和操作。其中一個常見的需求是刪除重復項。盡管網上有很多關于使用字典來刪除重復項的經驗分享，但我們可以利用split函數(shù)巧妙地實現(xiàn)這個功能。

設計思路

我們可以使用like作為判斷條件，遍歷所有單元格，將不重復的值連接成一個用特定符號隔開的字符串，然后使用split函數(shù)將字符串轉化成數(shù)組。這樣就能得到不重復的數(shù)值數(shù)組了。然后我們可以將該數(shù)組黏貼到指定的目標區(qū)域。

實現(xiàn)方法

首先，假設A列是我們要處理的數(shù)據，包含了重復的項目。我們要將這些重復的項目剔除，并將結果貼在C列上。

1. 打開Excel，按下快捷鍵"Alt F11"進入VBE編輯器。新建一個模塊，輸入以下代碼：

```

Sub 提取唯一值()

Dim Rng As Range

Dim Str As String

Dim EndRowNo As Integer

'找出A列最大行數(shù)

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函數(shù)生成數(shù)組，這個數(shù)組內的元素就是我們要找的唯一值了

Range("C2:C" UBound(arr) 2) (arr) '把生成的數(shù)組貼到目標區(qū)域

End Sub

```

2. 回到Excel表格，將VBE編輯器縮小，并按下運行鍵。您會發(fā)現(xiàn)唯一值已經提取到C列中了。

代碼解釋

讓我們簡單解釋一下代碼：

- `Dim arr`：聲明不定數(shù)組的方式，不需要加上arr()。

- `Split(Str, "/")`：split函數(shù)可以將字符串按某分割符號轉化成數(shù)組。在我們的代碼中，我們使用"/"作為分隔符，您也可以根據需要替換為其他符號。

- `UBound(arr) 2`：UBound找出的是數(shù)組的最大下標，由于數(shù)組的索引從0開始，所以實際元素的數(shù)量要加1。另外，由于我們要將數(shù)據粘貼到C列，從第二行開始，所以需要再加上1。因此，C列的行數(shù)就是數(shù)組的最大下標 2。

- `(arr)`：單元格黏貼數(shù)組的時候，默認一維數(shù)組是"行"的形式。但我們的目標是C列，即"列"的形式。所以我們使用`Transpose`函數(shù)將數(shù)組轉置，確保數(shù)據能正確粘貼到C列。

總結

本文介紹了如何使用VBA刪除重復項，并且不使用字典。通過巧妙地利用split函數(shù)，我們可以輕松地實現(xiàn)這個功能。希望本文對您有所幫助！