简单的自动填充，写了段代码没反应，请大佬给看看

月关

各位老师好！
下午练手，尝试写一个自动填充事件：
在A列输入数据，如果前面已经输入过，则B列、C列自动补全，——A列的数据有可能会有重复，即同一个代码，可能会手动修改后面B/C列的数据，所以B列和C列填充的是最后一次输入的数据。
写了段代码，感觉逻辑上没啥错误，但就是没反应，还请老师们出手点拨一下，谢谢！


代码如下，比较简单，老师们应该不下载附件也能看出来。

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Target.Column > 1 Then Exit Sub  '不在A列输入退出程序
   
3. If Target.Count > 1 Then Exit Sub    'A列单元格多选退出程序
   
4. If Target.Value = "" Then Exit Sub    'A列单元格输入为空退出程序
   
5. 
   
6. Set d = CreateObject("scripting.dictionary")
   
7. arr = Sheet1.UsedRange    '将表中数据装入数组，便于后续取值
   
8. If d.exists(Target.Value) Then    '如果Key存在,在数组中查找最后一次Key所在的行数进行数据填充
   
9.     For i = 1 To UBound(arr)
   
10.     Target(1, 2).Value = arr(d(Target.Value), 2)   'B列填充
    
11.     Target(1, 3).Value = arr(d(Target.Value), 3)   'C列填充
    
12.     Next
    
13. End If
    
14. d(Target.Value) = Target.Row   '写入Key，或修改Item最后一次输入Key的行数
    
15. End Sub

复制代码

自动填充.rar (13.66 KB, 下载次数: 5)

2019-8-20 17:29 上传

点击文件名下载附件

killq

第一，空字典要解决。。。。第二，偏移量要解决。。。。第三，事件要适时禁用防循环，这三条解决完了后再说别的问题

月关

killq 发表于 2019-8-20 19:10
第一，空字典要解决。。。。第二，偏移量要解决。。。。第三，事件要适时禁用防循环，这三条解决完了后再说 ...

会有空字典？如果 targe.value 为空我写了退出sub呀。而且为空也没问题，后面“填充”也是空罢了。
偏移量。。。 这个看不出有什么问题呀。。。。
第3个问题我再考虑一下

killq

如果是我，就先写主要逻辑辑:一，先初始字典，把数据加进去，然后查看是否存在，二，找到了就输出值
调试好了再放工作表事件里，其他细节上的事情一运行就会发现

liulang0808

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     If Target.Column <> 1 Then Exit Sub
   
3.     If Target.Count > 1 Then Exit Sub
   
4.     If Target.Value = "" Then Exit Sub
   
5.    
   
6.     For j = Target.Row - 1 To 1 Step -1
   
7.         If Target.Value = Cells(j, 1) Then
   
8.             Application.EnableEvents = False
   
9.             Cells(j, 1).Resize(1, 3).Copy Target
   
10.             Application.EnableEvents = True
    
11.         End If
    
12.     Next j
    
13. End Sub
    

复制代码

月关

liulang0808 发表于 2019-8-20 19:31

感谢！
我是希望有一个容错，即不一定是从上往下顺着依次输入，有可能是跳过一部分，比如这次输入第10行，下一次可能就是20行，再可能就跳到第2行。。。
这就是我用字典的原因，把target.row当作item值，把usedrange装入数组，设想以此来解决上面的问题。

liulang0808

月关 发表于 2019-8-20 19:38
感谢！
我是希望有一个容错，即不一定是从上往下顺着依次输入，有可能是跳过一部分，比如这次输入第10行 ...

楼主还是根据自己的想法逐步调试吧，看看参数值情况

月关

killq 发表于 2019-8-20 19:31
如果是我，就先写主要逻辑辑:一，先初始字典，把数据加进去，然后查看是否存在，二，找到了就输出值
调试 ...

如果Key不存在，for循环不会执行，最后一步就是写入key，否则就是更新刚刚的key所在的行数，这个逻辑我感觉没啥问题。。。

killq

月关 发表于 2019-8-20 19:48
如果Key不存在，for循环不会执行，最后一步就是写入key，否则就是更新刚刚的key所在的行数，这个逻辑我感 ...

写入了又如何？程序已经结束了
你幻想下次运行？可惜，它不是全局变量，程序一启动还初始化了。。。。所以，永远是空的

killq

月关 发表于 2019-8-20 19:38
感谢！
我是希望有一个容错，即不一定是从上往下顺着依次输入，有可能是跳过一部分，比如这次输入第10行 ...

版主的方案也不是从上往下查看的，建议你认真读代码

无论你从哪儿开始输入，都可以通过调代码来找到你想找的数据。查找数据的起点和方向你都可以手动控制，还可以跳行，不是吗？