如何在Excel的VB编辑器中实现将某一列的内容经过XOR运算后赋值给另一列，急。。。。。

如何在Excel的VB编辑器中实现将某一列的内容经过XOR运算后赋值给另一列，赋值的方式不是一次性完成，而是敲回车或者左右键一行一行的赋值完成。
举个例子：
　　如将Excel表中的第一列，第二行的内容（都是数字型的），敲回车或者左右键，如下转换后赋值给第二列，第二行的元素中，而现在第一列其它的数都是按照这样的情况做赋值给第二列，不知道怎么搞定呀，急。。。。
　　　Cells(２, 2) = CStr(Left(Cells(２, 1), 4)) + CStr((Right(Cells(２, 1), 7) Xor 1234567))

补充：VB ,  基础类