[已解决][求助] 求助：修改完善代码

TTTTT

原来是要达到这样的效果：

清华

TTTTT 发表于 2012-3-11 10:22
原来是要达到这样的效果：

完全正确，就是我要的效果

TTTTT

如果是那样的效果，你原来的程序只要把
if Target = Cells(Rows.Count, "B").End(xlUp) Then
改为
If Target.Column = 2 Then
就能达到效果

TTTTT

你原来附件按13楼修改了一句

TTTTT

你原来程序发生错误的原因简单分析如下：
因为你在B列已经输入了5，
Cells(Rows.Count, "B").End(xlUp)的缺省属性是B列数据最后行单元格的value——5
现在A6的target输入5以后，Target的缺省属性value——5
If Target = Cells(Rows.Count, "B").End(xlUp) Then——满足条件就执行程序
A6输入5，target的range属性就是A6，回车后Cells(Rows.Count, "A").End(xlUp)实际就是指A6，再加一个 .Offset(0, 1)，指B6，
Destination:=Range(Target, Cells(Rows.Count, "A").End(xlUp).Offset(0, 1))实际就是指A6:B6——全部自动填充5
如果你一开始B列输入的是其它数字，如8
当A列输入8后也会产生一样的问题

If Target = Cells(Rows.Count, "B").End(xlUp) Then
改为
If Target .column= 2 Then
后就与A列不相干，只看B列了
target在B列，Cells(Rows.Count, "A").End(xlUp).Offset(0, 1)也是指B列
Destination:=Range(Target, Cells(Rows.Count, "A").End(xlUp).Offset(0, 1))指B列target的range位置到A列最后数据行对应的B列单元格位置全部填充target缺省value了

清华

TTTTT 发表于 2012-3-11 10:44
你原来附件按13楼修改了一句

万分感谢，这样就十分完美了。

清华

TTTTT 发表于 2012-3-11 11:08
你原来程序发生错误的原因简单分析如下：
因为你在B列已经输入了5，
Cells(Rows.Count, "B").End(xlUp)的 ...

太厉害了十分精准

无聊的疯子

清华 发表于 2012-3-11 11:59
太厉害了十分精准

那就给他个最佳吧~~

隔行如隔山,现在我还是没明白意思~~

{:4812:}{:1112:}