8# zhaozyuan 确实可以用其他方法解决，但我面试的是VBA开发的岗位，所以面试官提出的问题得拿VBA搞

5# controlpanel 我找个类似的实现加到附件了

我可以负责任的告诉你，以上的代码就是VBA代码
搞技术的不能牛角尖呀，不是二叉树，照样VBA
既然你觉得我那不是VBA,我就把代码隐去了,你搞你的二叉树,俺就不管了,看来我是热心过了度,搞了半小时写的代码竟然不是vba?算了,就当练习了

9# zhaozyuan zhaozyuan 你误会我的意思了，我的意思是面试时必须VBA来做，你贴出了代码我很感激，请不要误会

学习学习

=。=虽然感觉太迟了。不过还是能用指针的。
Private Declare Sub CopyMemory1 Lib "kernel32" Alias "RtlMoveMemory" (ByRef Destination As Any, ByRefSource As Any, ByVal Length As Long)