大家好，我們今日繼續講解VBA代碼解決方案的第62講內容：在VBA中如何使用動態數組，以及利用動態數組去除重復值的方法第二部分。在上一講中，我們講了知識點的利用，其一是Filter函數，其二是ReDim語句的利用價值。同時我們又講了過程的定義。今日我們利用這些知識點，來完成我們的目的：使用動態數組去除文本中的重復值。

如下面的代碼所示。

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過程將工作表Sheets("kk")中A1單元格的文本去除重復值后寫入到工作表Sheets("kk")中的A列單元格。

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

第3行代碼聲明數組Arr用來保存去除重復值后的文本。

第4行代碼聲明數組Temp用來判斷文本是否重復。

第5行代碼聲明變量r用來保存去除重復值后的文本數量。

第7行代碼啟動錯誤處理程序來忽略錯誤，因為在程序運行到第11行代碼會發生下標越界錯誤。

第8行代碼使用Split 函數以Sheets("kk")中A1單元格的文本創建一個下標從零開始的一維數組。

第9行代碼使用For...Next語句遍歷數組Splarr的所有元素。

第10行代碼使用Filter函數創建一個數組Temp用來保存以當前Splarr數組的值在Arr數組中的搜索結果。

第11行代碼根據返回的數組Temp的最大下標來判斷當前Splarr數組的值是否重復。在使用使用Filter函數時如果沒有相匹配的值，將返回一個空數組，最大下標小于0。

第12行代碼如果當前Splarr數組的值不重復則將變量r的值加1。

第13行代碼重新定義動態數組大小。

第14行代碼將不重復值添加到數組Arr中。

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

代碼的截圖：

運行前的截圖：很顯然有很多的重復數值：

運行后的截圖：

今日內容回向：

1 上述代碼是否清楚了它的運行過程呢？

2 第7行代碼啟動錯誤處理程序來忽略錯誤，這時為什么呢？

總結

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

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。