vba如何将数组中的指定的值去除

发布网友发布时间：2022-10-07 17:53

共3个回答

热心网友时间：2023-10-28 20:03

假设原数组为arr新数组为arr1arr1 = VBA.Filter(arr, 12000, fales)新数组arr1即为去除了所有12000元素的新数组

热心网友时间：2023-10-28 20:04

Sub 去除特定元素组成新数组()

Dim arr, i%, i1%, a
Dim s As New Collection

arr = Range("A1:A" & [A65536].End(3).Row)
'待处理的数据

For i = 1 To UBound(arr)
If arr(i, 1) <> 12000 Then
s.Add arr(i, 1)
End If
Next

ReDim a(1 To s.Count)
For i1 = 1 To s.Count
a(i1) = s(i1)
Next

[C1].Resize(UBound(a), 1) = Application.Transpose(a)
'输出结果在C列

Set s = Nothing
Erase arr
Erase a

End Sub

热心网友时间：2023-10-28 20:04

for i=m to UBound(dataarr)-1 '从m向ub..-1 dataarr(i)=dataarr(i+1)next iReDim Preserve dataArr(UBound(dataarr)-1)

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com