大家好，我們今日繼續(xù)講解VBA代碼解決方案的第62講內(nèi)容：在VBA中如何使用動(dòng)態(tài)數(shù)組，以及利用動(dòng)態(tài)數(shù)組去除重復(fù)值的方法第二部分。在上一講中，我們講了知識(shí)點(diǎn)的利用，其一是Filter函數(shù)，其二是ReDim語(yǔ)句的利用價(jià)值。同時(shí)我們又講了過(guò)程的定義。今日我們利用這些知識(shí)點(diǎn)，來(lái)完成我們的目的：使用動(dòng)態(tài)數(shù)組去除文本中的重復(fù)值。

如下面的代碼所示。

Sub MySplitarrtwo()

Dim Splarr() As String

Dim Arr() As String

Dim Temp() As String

Dim r As Integer

Dim i As Integer

On Error Resume Next

Splarr = Split(Sheets("kk").Cells(1, 1).Range("a1"), " ")

For i = 0 To UBound(Splarr)

Temp = Filter(Arr, Splarr(i))

If UBound(Temp) < 0 Then

r = r + 1

ReDim Preserve Arr(1 To r)

Arr(r) = Splarr(i)

End If

Next

Sheets("kk").Range("a5").Resize(r, 1) = Application.Transpose(Arr)

End Sub

代碼解析：

MySplitarr過(guò)程將工作表Sheets("kk")中A1單元格的文本去除重復(fù)值后寫入到工作表Sheets("kk")中的A列單元格。

第2行代碼聲明數(shù)組Splarr用來(lái)保存Sheets("kk")中A1單元格的文本。

第3行代碼聲明數(shù)組Arr用來(lái)保存去除重復(fù)值后的文本。

第4行代碼聲明數(shù)組Temp用來(lái)判斷文本是否重復(fù)。

第5行代碼聲明變量r用來(lái)保存去除重復(fù)值后的文本數(shù)量。

第7行代碼啟動(dòng)錯(cuò)誤處理程序來(lái)忽略錯(cuò)誤，因?yàn)樵诔绦蜻\(yùn)行到第11行代碼會(huì)發(fā)生下標(biāo)越界錯(cuò)誤。

第8行代碼使用Split 函數(shù)以Sheets("kk")中A1單元格的文本創(chuàng)建一個(gè)下標(biāo)從零開(kāi)始的一維數(shù)組。

第9行代碼使用For...Next語(yǔ)句遍歷數(shù)組Splarr的所有元素。

第10行代碼使用Filter函數(shù)創(chuàng)建一個(gè)數(shù)組Temp用來(lái)保存以當(dāng)前Splarr數(shù)組的值在Arr數(shù)組中的搜索結(jié)果。

第11行代碼根據(jù)返回的數(shù)組Temp的最大下標(biāo)來(lái)判斷當(dāng)前Splarr數(shù)組的值是否重復(fù)。在使用使用Filter函數(shù)時(shí)如果沒(méi)有相匹配的值，將返回一個(gè)空數(shù)組，最大下標(biāo)小于0。

第12行代碼如果當(dāng)前Splarr數(shù)組的值不重復(fù)則將變量r的值加1。

第13行代碼重新定義動(dòng)態(tài)數(shù)組大小。

第14行代碼將不重復(fù)值添加到數(shù)組Arr中。

第15行代碼使用工作表Transpose函數(shù)將去除重復(fù)值的的文本轉(zhuǎn)置后寫入到工作表單元格中。

代碼的截圖：

運(yùn)行前的截圖：很顯然有很多的重復(fù)數(shù)值：

運(yùn)行后的截圖：

今日內(nèi)容回向：

1 上述代碼是否清楚了它的運(yùn)行過(guò)程呢？

2 第7行代碼啟動(dòng)錯(cuò)誤處理程序來(lái)忽略錯(cuò)誤，這時(shí)為什么呢？

總結(jié)

以上是生活随笔為你收集整理的python去除数组缺失值_动态数组的应用，VBA中如何利用动态数组去除重复值的第二讲...的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問(wèn)題。

如果覺(jué)得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。