[已解决]不循环，可以一次比较二维数组一样吗？？

xdwy81129

不知道可以不用循环，一次性比较出2个二维数组是否相同，只要结果：里面的数据相同还是不相同

谢谢，请解答

最佳答案

月排行榜 / 总排行榜

吕?布

2011-1-24 23:22

可以,就是很烦
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDst As Any, pSrc As Any, ByVal ByteLen As Long)
Sub tt()
    Dim arr1, arr2
    Dim arr3(1 To 6), arr4(1 To 6)
    arr1 = [{1,4;2,5;3,6}]
    arr2 = [{1,3,5;2,4,6}]
    CopyMemory ByVal VarPtr(arr3(1)), ByVal VarPtr(arr1(1, 1)), 16 * 6
    CopyMemory ByVal VarPtr(arr4(1)), ByVal VarPtr(arr2(1, 1)), 16 * 6
    Debug.Print Join(arr3, "|") = Join(arr4, "|")
End Sub

跳转到最佳答案楼层

liuguansky

{:231:}兰版上课说过。
用数组就不要怕用循环。
基本不会影响 执行速度

青城山苦丁茶

试了下用单元格过渡虽可以完成，但仅仅是伪VBA，不用也罢。还是走正道吧

xdwy81129

回复 青城山苦丁茶 的帖子

怎么完成的呀，教下嘛，多学习方法了

xdwy81129

因为想到如果数据在单元格，就可以一个公式知道数据是否相同

但现在数据没有在单元格，所以想是否也可以马上比较出结果呢？？？

轩辕轼轲

不用循环，貌似做不到，回答完毕，谢谢

放浪形骸

好像感觉会比较困难诶。

zitongye2384

路过看看

放浪形骸

这个算不算是挑战高手的任务？

吕?布

可以,就是很烦
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDst As Any, pSrc As Any, ByVal ByteLen As Long)
Sub tt()
    Dim arr1, arr2
    Dim arr3(1 To 6), arr4(1 To 6)
    arr1 = [{1,4;2,5;3,6}]
    arr2 = [{1,3,5;2,4,6}]
    CopyMemory ByVal VarPtr(arr3(1)), ByVal VarPtr(arr1(1, 1)), 16 * 6
    CopyMemory ByVal VarPtr(arr4(1)), ByVal VarPtr(arr2(1, 1)), 16 * 6
    Debug.Print Join(arr3, "|") = Join(arr4, "|")
End Sub