如何返回数组中元素的位置？

qust0312

例如，定义一个数组，包含有1,2,3，总共三个元素，现在怎么返回元素2在数组中的位置呢？

zhaogang1960

请参考:

1. Sub Macro1()
   
2.     Dim arr
   
3.     arr = [{1, 2, 3}]
   
4.     MsgBox "元素2在数组中的位置是:" & WorksheetFunction.Match(2, arr)
   
5. End Sub
   

复制代码

zhong1218

1. Sub aa()
   
2. arr = Array(1, 2, 5, 4)
   
3. i = Application.WorksheetFunction.Match(5, arr, 0)
   
4. End Sub

复制代码

lee1892

不要误导初学者，老老实实循环查找～

zhaogang1960

对元素2是否在数组中存在加个判断：
Sub Macro1()
    Dim arr, i As Long
    arr = [{1, 2, 3}]
    On Error Resume Next
    i = WorksheetFunction.Match(2, arr)
    If Err.Number = 0 Then
        MsgBox "元素2在数组中的位置是:" & i
    Else
        MsgBox "数组中不存在元素2"
    End If
End Sub

zhaogang1960

lee1892 发表于 2013-9-2 21:58
不要误导初学者，老老实实循环查找～

对于对速度要求不高的应用，有时书写简单也是需要的

顺便说一句：
请拿出自己的方法，而不是扣一顶“误导初学者”的帽子

qust0312

很谢谢大家的指点，现在想要的东西实现了，感激不尽。

lee1892

zhaogang1960 发表于 2013-9-2 23:03
对于对速度要求不高的应用，有时书写简单也是需要的

顺便说一句：

噢，我个人认为在VBA中使用Excel函数都是不合适的，尤其是对于初学者而言。

仅就楼主的问题而言，如你的方法，显然楼主没有学到其应该学到的VBA知识。

1. Sub Test()
   
2.     Dim aTest(), aPlaces
   
3.     aTest = Array(1, 2, 5, 3, 4, 5, 5, 8)
   
4.     aPlaces = ItemPlace(aTest, 5)
   
5.     Debug.Print UBound(aPlaces)
   
6.     Debug.Print Join(aPlaces, ", ")
   
7.     aPlaces = ItemPlace(aTest, 6)
   
8.     Debug.Print UBound(aPlaces)
   
9. End Sub
   
10. Function ItemPlace(ByRef arr(), ByVal item)
    
11.     Dim aRes(), i As Long, nInd As Long
    
12. 
    
13.     ReDim aRes(0 To UBound(arr) - LBound(arr))
    
14.     nInd = -1
    
15.     For i = LBound(arr) To UBound(arr)
    
16.         If arr(i) = item Then
    
17.             nInd = nInd +1
    
18.             aRes(nInd) = i
    
19.         End If
    
20.     Next
    
21.     If nInd >= 0 Then
    
22.         ReDim Preserve aRes(0 To nInd)
    
23.     Else
    
24.         Erase aRes
    
25.         ReDim aRes(-1 To -1)
    
26.     End If
    
27.     ItemPlace = aRes
    
28. End Function
    

复制代码

jsgj2023

占个位置，学习一下。

硅谷少年

zhaogang1960 发表于 2013-9-2 23:03
对于对速度要求不高的应用，有时书写简单也是需要的

顺便说一句：

赞同您的观点，对于小程序，速度能接受即可，容易实现很重要。如同早期单片机用汇编语言开发，现在早就是C或C++开发了。VBA也一样，公式和VBA，哪个容易实现用哪个，甚至是在vba里用shell执行dos命令或bat文件，来达到我想要的效果。vba写二十几行，dos命令一个参数就解决了，对于不需要返回值的操作，还是比较方便的。