Question

如何把VLOOKUP(A1,Sheet2!A:B,2,FALSE)用VBA实现呢。

直接放在表格里老是会被人弄乱的。锁起来有时候复制过来的比较麻烦
可以帮忙加个IF进去提示无此信息，请检查
Sheet1表单里B1=VLOOKUP(A1,Sheet2!A:B,2,FALSE）这样直接写在B1不好看哈，有时候直接是复制过来的，公式被覆盖了，而且在后面弄乱了或被删了都不好，，我需要隐藏在后面自动识别。有点笨，求帮忙

Answer 1

[B1]="=VLOOKUP(A1,Sheet2!A:B,2,FALSE）"            '假如引号内还有引号，采用"" 陪配""形式
[B1]=[B1]         ’转芦轿指化为数帆拿值格式

Answer 2

用application.vlookup直接把最终结果放单元格就行了呀

追问

如何开头结尾啊,VBA一点都不懂，模仿了半天也不会笨那

Answer 3

公式会被弄乱，VBA实现的也会被弄乱，一样一样的。

Answer 4

formula可以直接调用VLOOKUP函数

追问

如何开头结尾啊,VBA一点都不懂，模仿了半天也不会笨那

追答

'发生变化时自动查找
Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long
i = Target.Row
Range("b" & i) = Application.WorksheetFunction.VLookup(Range("a" & i).Value, Worksheets("Sheet2").Range("A:B"), 2, 0)
End Sub
'