如何获取数组中的行号?

HAPPY_1117

有数组 ARR(249,222), 如何获取行号249?

zhaogang1960

思路：
用Index函数取出第222列，再用Transpose函数变成一维数组，已经一维数组的一个元素值，用Match可得出该元素所在下标：

1. Sub Macro1()
   
2.     Dim arr(1 To 10000, 1 To 256), i&
   
3.     For i = 1 To 10000
   
4.         arr(i, 222) = i * i
   
5.     Next
   
6.     With WorksheetFunction
   
7.         MsgBox .Match(arr(249, 222), .Transpose(.Index(arr, 0, 222)), 0) '注：arr(249, 222)应该是个具体值
   
8.     End With
   
9. End Sub

复制代码

zhaogang1960

上面用了好几个工作表函数，速度很慢，实际中使用循环操作数组速度最快：

1. Sub Macro2()
   
2.     Dim arr(1 To 10000, 1 To 256), i&
   
3.     For i = 1 To 10000
   
4.         arr(i, 222) = i * i
   
5.     Next
   
6.     For i = 1 To 10000
   
7.         If arr(i, 222) = 62001 Then
   
8.             MsgBox i
   
9.             Exit For
   
10.         End If
    
11.     Next
    
12. End Sub
    

复制代码

jsxjd

1.     Dim ARR(249, 222)
   
2.     MsgBox UBound(ARR)

复制代码

HAPPY_1117

zhaogang1960 发表于 2015-1-4 22:35
上面用了好几个工作表函数，速度很慢，实际中使用循环操作数组速度最快：

谢谢赵老师，我想到也是只有采用循环，有没类类似字典EXIST这种呢？？？

zhaogang1960

HAPPY_1117 发表于 2015-1-5 16:26
谢谢赵老师，我想到也是只有采用循环，有没类类似字典EXIST这种呢？？？

应该没有，否则数组的功能就强大多了

jsxjd

zhaogang1960 发表于 2015-1-5 17:05
应该没有，否则数组的功能就强大多了

可以考虑工作表函数：

1. Sub test()
   
2.     arr = Array(249, 222, 12, 34, 5)
   
3.     MsgBox WorksheetFunction.Match(222, arr, 0)
   
4. End Sub

复制代码

HAPPY_1117

jsxjd 发表于 2015-1-5 19:56
可以考虑工作表函数：

谢谢帮助，这个问题算解决了.
如果列中存在多个重复值，如果能个个找出其位置呢，但是不使用循环的方式

jsxjd

HAPPY_1117 发表于 2015-1-6 11:22
谢谢帮助，这个问题算解决了.
如果列中存在多个重复值，如果能个个找出其位置呢，但是不使用循环的方式

用工作表应该没有问题，只是返回的形式

香川群子

HAPPY_1117 发表于 2015-1-6 11:22
谢谢帮助，这个问题算解决了.
如果列中存在多个重复值，如果能个个找出其位置呢，但是不使用循环的方式

【……但是不使用循环的方式】

又是来自新手的严重误解！

对于调查、读取、改写VBA内存数组的信息来说，最快、最有效的就是循环遍历。

没有其它捷径。

任何其它简洁的语句，不过是把循环遍历的工作放在了后台进行。

举例：对数组求和

方法-1：使用标准循环遍历，但仅按多行1列数组进行处理。
Sub test1(ar)
    Dim i&, s
    For i = 1 To UBound(ar)
        s = s + ar(i, 1)
    Next
End Sub

方法-2：使用工作表Sum函数只需一句代码
Sub test2(ar)
    Dim s
    s = WorksheetFunction.Sum(ar)
End Sub


方法-3：：使用标准循环遍历，可以处理多行多列
Sub test3(ar)
    Dim i&, j&, n&, s
    n = UBound(ar, 2)
    For i = 1 To UBound(ar)
        For j = 1 To n
            s = s + ar(i, 1)
        Next
    Next
End Sub


楼主猜一下，这3个代码的速度效率比较结果？！


…………
速度答案是： 1>3>2  即简洁的工作表Sum函数一句代码速度最慢！！！