Question

EXCEL中如何用宏自动录入VLOOKUP公式查找后的内容？

以下是在C列输入内容后，在A列自动记录当前时间（now），怎么把A列记录的世间换成VLOOKUP查找后的值，即在C列一个单元格内填写完内容弄个后，相应的同行A列的那个单元格自动填写VLOOKUP之后的值[VLOOKUP(C?,SHEET1!A:B,2,0)],主要是VLOOKUP查找值是活动单元格，在C列不是固定的，不知道在宏里怎么修改？
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then
If Target.Column = 3 And Len(Target.Value) > 0 Then
If Target.Offset(0, -2) = "" Then
Target.Offset(0, -2) = Now
End If
End If
End If
End Sub

Answer 1

 VLOOKUP函数用于搜索指定区域内首列满足条件的元素，确定待检测单元格在区域中的行序号，再进一步返回选定单元格的值。下面小编就通过一个实例来讲解一下VLOOKUP函数的使用方法。

方法

为了讲解的需要，特制作如图所示的表格。当然，也可以根据自己的实际情况设计合适的内容。

接下来 ，任务是通过利用VLOOKUP函数来实现查找同学C的成绩。为此在单元格中输入“=VLOOKUP”，此时就会发现VLOOKUP包括三个参数和一个可选参数。

其中“lookup_value”是指要查找的值，在此为“C”。

参数“table_array”是指搜索的区域，在此在除标题之后的整个数据区域。

第三个参数“col_index_num”是指整个函数返回单元格所在的列号，在此为“2”。

最后以右括号结尾，并按回车键，就出现想要的结果啦。

Answer 2

我的意思是若是c1输入内容，在A1输出啊=vlookup（C1,SHEET1!A:B,2,0)
若是c15输入内容，在A15输出啊=vlookup（C15,SHEET1!A:B,2,0)

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 Then
Target.Offset(0, -2).Formula = "=vlookup(" + CStr(Target.Value) + ",SHeet1!A:B,2,0)"
End If

End Sub

追问

你这个每次输出的都是根据C1查找对应的值，而不是根据输入的不同的值查找对应值

追答

请你再试下，更新了代码。

追问

A列显示的值是错误值#NAME?,里面显示的公式是=VLOOKUP(编号5,Sheet1!A:B,2,0)
我在C1输入"编号5",在sheet1中A列，对应B列值为25，结果计算结果错误。你在帮我看看，快接近了
还有一个就是想要不保留公式，只保留结果。

追答

见样表

Answer 3

Target.Offset(0, -2).Formula = "=vlookup(" + CStr(Target.Value) + ",SHEET1!A:B,2,0)"

C？这个没太看懂，是说活动单元格？还是当前单元格，活动要有条件呢，找到条件即可

追问

我的意思是若是c1输入内容，在A1输出啊=vlookup（C1,SHEET1!A:B,2,0)
若是c15输入内容，在A15输出啊=vlookup（C15,SHEET1!A:B,2,0)

追答

嗯，那就用我那个就可以，我那个就是这个意思