excel vb 里面的语句与单元格的剪切

有时候，vb完成了后，而某些单元格要剪切位置，但其单元格的位置，比如 [A1]。。。。已经在VB引用了，剪切移动新位置后，比如A1剪切到B2，但VB中相应的A1引用没有跟随改变为B2，有时要花大量时间来检查，不能像EXCEL单元格公式那样，剪切后被引用的也自动跟随改变。

这个是难以避免的，我编的VB语句很多很长，几千行，不是一个小功能，EXCEL里面的界面也比较复杂，做到中途，为了界面更美观，为了更实用，必须把某些已经在VB中引用了的单元格移走，但VB中相应的单元格引用位置并不跟随移动变化，以至于花大量的时间来检查

换一种思路解决问题嘛！
为什么要用剪切哪？这样的操作 事实上 会比较慢哦……手工剪切掉单元格之后 引用它的公式还正常吗？
如果 你要使用剪切的动作 你就录制一段这样的操作 代码 然后 用那些代码来完成 ……

sub test() dim i as integer dim x as byte dim xbool as boolean xbool = true for i = 1 to range("d6000").end(xlup).row x = instr(range("d" & i), "/") if x > 0 then if xbool then range("d" & i) = left(range("d" & i), x - 1) xbool = not xbool else range("d" & i) = mid(range("d" & i), x + 1, 20) xbool = not xbool end if end if next i end sub