求一段vba（excel）程序,如果在第一列A(i+1)cell中的值等于A(i)cell中的值+1，就在B(i)cell中拷贝A(i)cell的值，如果不等就另起一列C(i)c

[AMITUOFO]

在EXCEL的WORKSHEET的A列中，记录有123123123123123这样的数列
求一段vba（excel）程序,

如果在第一列A(i+1) cell中的值等于A(i)cell中的值+1，就在B(i)cell中拷贝A(i)cell的值，

如果不等就另起一列C(i)，如果在第一列A(i+1)cell中的值等于A(i)cell中的值+1，就在 C(0) cell中拷贝A(i)cell的值.满足条件A(i+1) cell中的值等于A(i)cell中的值+1时，接着在C列cell中拷贝A(i+1)...

如果不等就另起一列D(i)，如果在第一列A(i+1)cell中的值等于A(i)cell中的值+1，就在 D(i) cell中拷贝A(i)cell的值.满足条件A(i+1) cell中的值等于A(i)cell中的值+1时，接着在D列cell中拷贝A(i+1)...
...如此例推

[xinliangyu]

你的条件分支好多，没耐心看完。依我的经验，直接在excel中使用公式更好

[province_]

佩服一下，本来就没睡好，现在终于被你彻底弄昏了^_^

[DawnPine]

if cells(i,1)+1=cells(i+1,1) then
cells(i,2)=cells(i,1)
elseif cells(i,1)+1=cells(i+1,1) '写到这儿 就写不下去了, 怎么所有的条件都一样?

[province_]

哈，又有一个被搞晕了。^_^

[jam021]

自己录一下吧,很简单的

[northwolves]

在EXCEL的WORKSHEET的A列中，记录有123123123123123这样的数列
求一段vba（excel）程序,

如果在第一列A(i+1) cell中的值等于A(i)cell中的值+1，就在B(i)cell中拷贝A(i)cell的值，

如果不等就另起一列C(i)，如果在第一列A(i+1)cell中的值等于A(i)cell中的值+1，就在 C(0) cell中拷贝A(i)cell的值.满足条件A(i+1) cell中的值等于A(i)cell中的值+1时，接着在C列cell中拷贝A(i+1)...

如果不等就另起一列D(i)，如果在第一列A(i+1)cell中的值等于A(i)cell中的值+1，就在 D(i) cell中拷贝A(i)cell的值.满足条件A(i+1) cell中的值等于A(i)cell中的值+1时，接着在D列cell中拷贝A(i+1)...
...如此例推
----------------------

难以明白.画个10*10 CELLS 的例子

[zyc52016]

搞不懂你说什么真得很复杂你是怎么想出来的呀