[已解决]VBA根据指定要求自动填充对应内容

wwj804

各位老师大家好，我有一工作薄，原先用的是公式的，数据量越来越多后运行很慢很慢，甚至停止不前了，卡了，能否使用VBA功能解决？要求是，当我在Sheet2表从单元格E3开始输入内容后，把Sheet1表列A内容与Sheet2表从单元格E3内容相同时，同行D列单元格内容和I列单元格内容自动填充到Sheet2表从单元格E3同行的F列和G列中，从E3单元格开始可使用至最末一行，请哪位老师帮忙啊！

最佳答案

月排行榜 / 总排行榜

grf1973

2017-3-16 16:25

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     If Target.Row < 3 Or Target.Column <> 5 Or Target.Count > 1 Then Exit Sub
   
3.     Application.EnableEvents = False
   
4.     If Len(Target) = 0 Then Target.EntireRow = ""
   
5.     arr = Sheet1.[a1].CurrentRegion
   
6.     Set d = CreateObject("scripting.dictionary")
   
7.     For i = 2 To UBound(arr)
   
8.         d(CStr(arr(i, 1))) = i
   
9.     Next
   
10.     i = d(CStr(Target.Value))
    
11.     If i > 0 Then
    
12.         Target.Offset(, 1) = arr(i, 4)
    
13.         Target.Offset(, 2) = arr(i, 9)
    
14.     End If
    
15.     Application.EnableEvents = True
    
16. End Sub

复制代码

跳转到最佳答案楼层

望帝春心

卡不是公式的问题，是你文件本身的问题，这就是一个简单的VLOOKP问题，不会卡的，你看看你的文件大小就知道了，你传的附件就那么几行数据压缩前就3.6M的大小，所以...

望帝春心

你要做的只是文件瘦身，不是用VBA来实现你的查询功能，完全没必要。10000行数据差不多1M大小，你看看你有3、4万行数据吗？

ilovelittle

你多次操作，往后不停的会有增添删减的操作，还是用函数，比如vlookup。
如果你是一次操作的，代码会有优势。
建议你还是用函数。

grf1973

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     If Target.Row < 3 Or Target.Column <> 5 Or Target.Count > 1 Then Exit Sub
   
3.     Application.EnableEvents = False
   
4.     If Len(Target) = 0 Then Target.EntireRow = ""
   
5.     arr = Sheet1.[a1].CurrentRegion
   
6.     Set d = CreateObject("scripting.dictionary")
   
7.     For i = 2 To UBound(arr)
   
8.         d(CStr(arr(i, 1))) = i
   
9.     Next
   
10.     i = d(CStr(Target.Value))
    
11.     If i > 0 Then
    
12.         Target.Offset(, 1) = arr(i, 4)
    
13.         Target.Offset(, 2) = arr(i, 9)
    
14.     End If
    
15.     Application.EnableEvents = True
    
16. End Sub

复制代码

grf1973

他的文件里面数据虽然不多，但条件格式，有效性很多，很占空间。

ilovelittle

非要代码的话，循环数组到符合就赋值然后就退出也比字典快啊。

wwj804

grf1973 发表于 2017-3-16 16:25

你好，很好用，方便了很多，但这些代码看着眼花，能否帮我注释一下每行代码的意思吗？谢谢啦！