|
- Private Sub Worksheet_Change(ByVal Target As Range)
- If Target.Address <> "$A$1" Then Exit Sub
- Dim c As Range
- Set c = Sheets("Sheet2").Rows(1).Find(Target.Value, , , xlWhole)
- If Not c Is Nothing Then Target.Offset(1).Value = c.Offset(1) Else Target.Offset(1).Value = ""
- End Sub
复制代码
谢谢老师!
Private Sub Worksheet_Change(ByVal Target As Range)
'当表格内容发生变化时
If Target.Address <> "$A$1" Then Exit Sub
'若变化的不是A1单元格,那么就退出
Dim c As Range
Set c = Sheets("Sheet2").Rows(1).Find(Target.Value, , , xlWhole)
'从表2的第一行里查找A1单元格里的值
If Not c Is Nothing Then Target.Offset(1).Value = c.Offset(1) Else Target.Offset(1).Value = ""
'若能找到,则A1下一行的值等于所找到的单元格的下一行的值,否则就为空
End Sub
如上所述。。。
|
|