VBA 从一个表导入相应数据到另一个表

c1813

需求这样的：
sheet Main 有三列：Code，Width， Long
sheet FYSTSLOW有很多列，但也有Code，Width，Long
而且FYSTSLOW的数据是经常变的。
现在要求实现当我在Main的Code列输入一串数据，如果在FYSTSLOW的Code也有，那么在Main的Width和Long自动填充FYSTSLOW对应的Width和Long。
而且要保证党FYSTSLOW表格数据变化时，不影响Main表的已保存数据

wbperfect

1. Sub findcopy()
   
2. Dim i, m, j As Long
   
3. i = Sheets("Main").[a1048576].End(xlUp).Row
   
4. j = Sheets("FYSTSLOW").[b1048576].End(xlUp).Row
   
5. 
   
6. For m = 2 To j
   
7. 
   
8. If Sheets("Main").Cells(i, 1) = Sheets("FYSTSLOW").Cells(m, 2) Then
   
9. 
   
10. Sheets("Main").Cells(i, 2) = Sheets("FYSTSLOW").Cells(m, "O")
    
11. Sheets("Main").Cells(i, 3) = Sheets("FYSTSLOW").Cells(m, "P")
    
12. 
    
13. End If
    
14. 
    
15. Next
    
16. i = i + 1
    
17. End Sub

复制代码

c1813

wbperfect 发表于 2020-1-2 14:59

首先感谢大侠，那么如何实现党我在Main的A列输入数据后，Width和Long就自动显示？不需要人工点击VBA执行？

wodewan

可试试CHANGE事件，放MAIN表中，附件供参考，试试看。。。。


Private Sub Worksheet_Change(ByVal Target As Range)
Dim R As Range
If Target.Column = 1 And Target.Count = 1 Then
    Set R = Sheets("FYSTSLOW").Range("B:B").Find(Target, , , xlWhole)
    If Not R Is Nothing Then
    Target.Offset(0, 1) = R.Offset(0, 13)
    Target.Offset(0, 2) = R.Offset(0, 14)
    End If
End If
End Sub

wodewan

附件供参考

wbperfect

c1813 发表于 2020-1-2 15:14
首先感谢大侠，那么如何实现党我在Main的A列输入数据后，Width和Long就自动显示？不需要人工点击VBA执行 ...

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. 
   
3. If Target.Column = 1 Then
   
4. 
   
5. Call findcopy
   
6. 
   
7. End If
   
8. End Sub
   

复制代码

“Main”中增加

IVYQQQQQ

wbperfect 发表于 2020-1-2 14:59

不影响Main表的已保存数据是什么意思？我认为应该加判断，在Main表是否已经存在，如存在就不能再修改了。
用数组及字典写比较好。

wbperfect

IVYQQQQQ 发表于 2020-1-2 15:45
不影响Main表的已保存数据是什么意思？我认为应该加判断，在Main表是否已经存在，如存在就不能再修改了。 ...

"i"变量已经规避前面的数据再重新获取了

虽没去判断，但对于LZ已保存的数据不变是没问题的

c1813

感谢各位~！最终选择了@wodewan的方案，我还是VBA小白痴，只是懵懵懂懂知道这个VBA的意思。
再次感谢各位。

wx50224893