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

清华

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. On Error Resume Next
   
3. If Target.Count = 1 Then
   
4. If Target = Cells(Rows.Count, "B").End(xlUp) Then
   
5. Application.EnableEvents = False
   
6. Target.AutoFill Destination:=Range(Target, Cells(Rows.Count, "A").End(xlUp).Offset(0, 1))
   
7. Application.EnableEvents = True
   
8. Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).Select
   
9. End If
   
10. End If
    
11. End Sub

复制代码

求助：修改完善代码，在B列上方输入值后、敲入回车自动把值添加到A列最后一行。

现在问题是A列输入的值与B列最后行的值相同自动添加是错误的。

最佳答案

月排行榜 / 总排行榜

TTTTT

2012-3-11 10:39

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

跳转到最佳答案楼层

无聊的疯子

看不懂,真头痛!!哎~~

清华

无聊的疯子 发表于 2012-3-11 09:25
看不懂,真头痛!!哎~~

就是A6值是5，B6别自动添加5
A9值是5，B9别自动添加5自动添加数据是错误的意思，

zjcat35

我也看不懂！！   

清华

zjcat35 发表于 2012-3-11 09:42
我也看不懂！！

我描述很差，请操作一遍附件就发现问题了，谢谢

zjcat35

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     On Error Resume Next
   
3.     If Target.Count = 1 Then
   
4.         If Target = Cells(Rows.Count, "B").End(xlUp) Then
   
5.             Application.EnableEvents = False
   
6.             Target.AutoFill Destination:=Range(Target, Cells(Rows.Count, "A").End(xlUp).Offset(0, 1))
   
7.             Target.Offset(0, 2) = "错误"
   
8.             Application.EnableEvents = True
   
9.             Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).Select
   
10.         End If
    
11.     End If
    
12. End Sub

复制代码

你用这个代码试试，错误可以弄出来，但那个正确有点摸不着头脑！  不晓得何时来触发！
既然现在有了错误，其他空单元格就是正确，也可以用了

清华

现在问题是A列输入的值与B列最后行的值相同自动添加是错误的。
图片B4是5，A6,A9输入5,不让B6,B9自动添加5

TTTTT

把这句改为以下语句，不知道是不是你的要求：
Target.AutoFill Destination:=Range(Cells(Target.Row, "A"), Cells(Rows.Count, "A").End(xlUp)).Offset(0, 1)

清华

TTTTT 发表于 2012-3-11 10:09
把这句改为以下语句，不知道是不是你的要求：
Target.AutoFill Destination:=Range(Cells(Target.Row, "A" ...

就是我要的效果，你太埲了，能理解我的东西。

zjcat35

1. 错了

复制代码