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

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

設(shè)計(jì)思路

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

實(shí)現(xiàn)方法

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

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

```

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列每一個(gè)單元格，如果沒有和之前的值重復(fù)則合并到Str里去，并用"/"隔開

If Not Str Like "*" Rng "*" Then '用Not like判斷值是否已經(jīng)合并過

Str Str "/" Rng

End If

Next

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

Dim arr

arr Split(Str, "/") '使用split函數(shù)生成數(shù)組，這個(gè)數(shù)組內(nèi)的元素就是我們要找的唯一值了

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

End Sub

```

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

代碼解釋

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

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

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

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

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

總結(jié)

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