查询元素在数组中的维度

sxo

1. Dim arr, nums
   
2. arr = Range(Cells(1, 1), Cells(22, 1))
   
3. nums = Application.Match("AQQ10", arr, 0)
   
4. If Err.Number <> 0 Then
   
5. MsgBox nums
   
6. Else
   
7. MsgBox "不存在"
   
8. End If

复制代码

sxo

查询后显示不存在？查询出来后如何删除包含该元素的数组？比如找到数据在arr(1，1）中，怎么删除arr(1，1),arr(1,2)....这个数组？

582766

你这个逻辑不行
If nums <> 0 Then
需求不明确，下一步需要做什么

sxo

582766 发表于 2022-12-10 19:56
你这个逻辑不行
If nums  0 Then
需求不明确，下一步需要做什么

求nums的在数组中的位置，并清除数组中的该元素和下标

taller