大师你好！用什么代码判断数组arr()是否存在？谢谢！

Zamyi

大师的称呼太过了。以前狼版写过一个，但只对整数有效，其它数据类型不行：
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDst As Any, pSrc As Any, ByVal ByteLen As Long)
Sub Test()
Dim arr
arr = [mmult(row(1:25),column(a:H))]
CopyMemory arr(15, 1), arr(16, 1), 10 * 8 * 16
[A1].Resize(24, 8) = arr
End Sub

fsydw

谢谢大师赐教！珍藏！！