vba删除数组中的某个元素

在VBA中，没有直接删除数组中某个元素的内置函数。但可以使用动态数组的方法来实现删除数组中的元素。一种方法是通过循环和条件判断来删除元素，具体步骤如下：
1. 定义一个新的动态数组，并初始化一个长度变量k为0。
2. 使用For循环遍历原数组，通过条件判断确定是否删除当前元素。
3. 如果不需要删除，则将当前元素添加到新数组中，并将k的值加1。
4. 最后，新数组中的元素就是删除了指定元素后的数组。

以下是一个示例代码：

arr1 = Array(1, "特定条件", 3, 999, 1, "特定条件", 3) '定义一个数组
Dim b() As String '定义新数组
k = 0 '记录新数组的长度
For i = 0 To UBound(arr1) '用数组长度来判断是否遍历完成
    If (InStr(1, arr1(i), "特定条件", 0) <= 0) Then
        ReDim Preserve b(0 To k) '添加到新数组
        b(k) = arr1(i)
        k = k + 1
    End If
Next

这样，新数组b中的元素就是删除了指定元素后的结果，可以根据需要进行进一步处理或使用。

另外，还有一种删除数组中元素的方法是通过选择某一列，并使用循环和条件判断来删除指定行。具体步骤如下：
1. 选择要操作的列。
2. 定义一个循环变量i，并初始化为1。
3. 判断当前选中的单元格是否为空，如果不为空，则判断是否满足删除条件。
4. 如果满足删除条件，则获取当前行号，然后删除当前行，并将循环变量i减1以抵消删除对循环的影响。
5. 循环中，循环变量i正常地加1。
6. 当遇到空单元格时，表示遍历完成。

以下是一个示例代码：

Columns("G:G").Select '选择一列
i = 1 '定义一个循环变量，来控制参与循环的元素
While (IsEmpty(Selection(i)) = False) '用是否遇到空单元格来判断是否遍历完成
    If (InStr(1, Selection(i), "特定条件", 0) > 0) Then
        nowRow = Selection(i).Row '获得当前行号
        Rows(nowRow).Delete '删掉当前行
        i = i - 1 '抵消删除对循环的影响
    End If
    i = i + 1 '循环中循环变量正常地加1
Wend

这样，指定条件的元素所在的行将被删除。

综上所述，以上两种方法可以实现VBA删除数组中的某个元素，具体方法根据需求选择。<span class="em">1</span><span class="em">2</span><span class="em">3</span>
#### 引用[.reference_title]
- *1* *2* *3* [【笔记】Excel 2021｜VBA删除数组中的一个元素、循环时删除一行、选择一列删除指定一行](https://blog.csdn.net/qq_46106285/article/details/127351056)[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 ]