VBA 判断元素是否在数组中

在 VBA 中，可以使用函数 `Application.Match()` 来判断一个元素是否在数组中。具体操作如下：

1. 定义数组及元素：

Dim myArray(1 To 5) As String
Dim myElement As String

myArray(1) = "apple"
myArray(2) = "banana"
myArray(3) = "orange"
myArray(4) = "pear"
myArray(5) = "grape"

myElement = "banana"

2. 使用 `Application.Match()` 函数判断元素是否在数组中：

If Not IsError(Application.Match(myElement, myArray, 0)) Then
    MsgBox myElement & " is in the array."
Else
    MsgBox myElement & " is not in the array."
End If

该函数返回元素在数组中的位置，如果元素不在数组中，则返回错误值。因此，使用 `IsError()` 函数判断返回值是否为错误值，即可判断元素是否在数组中。

相关问题

vba，删除数组中的指定元素

在 VBA 中，可以使用 For 循环和 If 语句来删除数组中的指定元素。具体步骤如下：

1. 定义一个新数组，用于存储删除指定元素后的结果。

2. 使用 For 循环遍历原始数组中的每个元素。

3. 使用 If 语句判断当前元素是否为要删除的元素。如果是，就跳过当前循环；如果不是，就将该元素添加到新数组中。

4. 最后返回新数组作为删除指定元素后的结果。

以下是一个示例代码：

Sub DeleteElementFromArray()
    Dim arr() As Integer
    Dim i As Integer, j As Integer
    Dim deleteValue As Integer
    Dim newArr() As Integer
    
    ' 初始化原始数组
    arr = Array(1, 2, 3, 4, 5, 6, 7, 8, 9)
    deleteValue = 5 ' 要删除的元素
    
    ' 遍历原始数组，将不需要删除的元素添加到新数组中
    ReDim newArr(UBound(arr) - 1) ' 定义新数组的大小
    j = 0
    For i = 0 To UBound(arr)
        If arr(i) <> deleteValue Then
            newArr(j) = arr(i)
            j = j + 1
        End If
    Next i
    
    ' 输出结果
    For i = 0 To UBound(newArr)
        Debug.Print newArr(i)
    Next i
    
End Sub

在上面的代码中，原始数组为 arr，要删除的元素为 deleteValue，新数组为 newArr。运行上面的代码后，输出结果为：

1
2
3
4
6
7
8
9

可以看到，数组中的元素 5 已经被成功删除了。

vba删除数组中的重复元素

要删除VBA数组中的重复元素，可以使用循环和条件语句来实现。以下是一个示例代码：

Sub RemoveDuplicates()
Dim arr1 As Variant
Dim i As Long, j As Long, k As Long

arr1 = Array(1, 2, 3, 4, 5, 6, 7, 8, 8, 9, 10, 10) '示例数组

'遍历数组
For i = LBound(arr1) To UBound(arr1)
'检查当前元素是否为重复元素
For j = i + 1 To UBound(arr1)
If arr1(i) = arr1(j) Then
'将重复元素置为空字符串
arr1(j) = ""
End If
Next j
Next i

'创建新数组，仅包含非空元素
Dim newArr() As Variant
ReDim newArr(0 To UBound(arr1))
k = 0
For i = LBound(arr1) To UBound(arr1)
If arr1(i) <> "" Then
newArr(k) = arr1(i)
k = k + 1
End If
Next i

'输出结果
For i = LBound(newArr) To UBound(newArr)
Debug.Print newArr(i)
Next i
End Sub

这段代码首先遍历数组，检查每个元素是否为重复元素，若是则将其置为空字符串。然后根据非空元素创建一个新数组，并输出结果。注意，这里假设数组中的元素是数值型，如果数组中的元素是字符串型，需要将条件判断部分的arr1(i) = arr1(j)改为StrComp(arr1(i), arr1(j), vbTextCompare) = 0。<span class="em">1</span><span class="em">2</span><span class="em">3</span>
#### 引用[.reference_title]
- *1* *2* *3* [VBA 如何删除数组里的某个元素](https://blog.csdn.net/xuemanqianshan/article/details/103633050)[target="_blank" data-report-click={"spm":"1018.2226.3001.9630","extra":{"utm_source":"vip_chatgpt_common_search_pc_result","utm_medium":"distribute.pc_search_result.none-task-cask-2~all~insert_cask~default-1-null.142^v93^chatsearchT3_2"}}] [.reference_item style="max-width: 100%"]
[ .reference_list ]