单元格中输入数据（根据数值判断），其他单元格自动填入引用表格的数据

wocaixiang

在“地层”表中B2列输入地层编号，如果输入的编号与标准地层中对应的编号相同，那么DEFGHI列自动填入标准地层表中对应的数据。
请大神指导!

wocaixiang

请大神查看表单附件

不知道为什么

工作表事件。论坛类似帖子很多。。。。。否则建议上传附件

边缘码农

用Vlookup函数。

三分醉，七分醒

请测试一下是不是这人效果

不知道为什么

参考 。。

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     Dim rng As Range, arr
   
3.     Set dic = CreateObject("scripting.dictionary")
   
4.     arr = Sheets("标准地层").[a1].CurrentRegion
   
5.     For i = 2 To UBound(arr)
   
6.         Set dic(arr(i, 1)) = Sheets("标准地层").Range("b" & i).Resize(1, 6)
   
7.     Next i
   
8.     If Target.Row > 1 And Target.Column = 2 And Target.Rows.Count = 1 Then
   
9.         Target.Offset(0, 2).Resize(1, 6).ClearContents
   
10.         If dic.exists(Target.Value) Then dic(Target.Value).Copy Target.Offset(0, 2)
    
11.     End If
    
12. End Sub
    

复制代码