VLOOKUPA2表2 A B 2 0
如果不懂如何生成按钮及关联程序再追问，这里不解答这部分了。
因为你表达的有歧义，故下面给三种方法。
'一、为指定单元格写入公式（稍微修改指定单元格也可以是变量）：
Sub 为单元格写入公式（）
Range(＂B2＂).Select
ActiveCell.Formula = ＂=VLOOKUP(A2，表2!A:B,2,0)＂
'ActiveCell.Formula = ＂=VLOOKUP(A:A，表2!A:B,2,0)＂
'ActiveCell.FormulaR1C1 = ＂=VLOOKUP(RC[-1]，表2!C[-1]:C[0],2,0)＂
'ActiveCell.FormulaR1C1 = ＂=VLOOKUP(C[-1]，表2!C[-1]:C[0],2,0)＂
End Sub
'二、解释VLOOKUP函数，在指定单元格引用查找值：
Sub 指定单元格查找引用（）
Dim m
With Sheets（＂表2＂）
For m = 1 To .[A65536].End(3).Row
If .Cells(m, 1) = Sheets(1).Cells(2, 1) Then
Sheets(1).Cells(2, 2) = .Cells(m, 2)
End If
Next
End With
End Sub
'二、解释VLOOKUP函数，在指定列引用查找值。此处为上代码稍微优化，有通用性：
Sub 全部查找引用（）
Dim i, j
With Sheets（＂表2＂）
For i = 1 To .[A65536].End(3).Row
For j = 1 To Sheets(1).[A65536].End(3).Row
If .Cells(i, 1) = Sheets(1).Cells(j, 1) Then
Sheets(1).Cells(j, 2) = .Cells(i, 2)
End If
Next
Next
End With
End Sub
怎样在VBA指令中调用Excel函数
方法/步骤
打开 Microsoft Office Excel 2007，点击 “开始” ->“Excel 选项”。
在弹出的对话框中，选择“常规”选项卡，并在右侧点选“在功能区显示‘开发工具’选项卡”，并单击“确定＂。
在单元格A1中输入“弧度”，单元格B1中输入“角度”，单元格A2中输入“3.14”，然后在单元格B2中输入公式＂=DEGREES(A2)＂在按下回车后，该单元格输出结果为179.9087477。
注：DEGREES函数的作用是将弧度转化为角度。
接下来，我们用VBA实现同样的功能。点击“开发工具”选项卡，单击“Visual Basic”，启动Visual Basic编辑器。
在“Microsoft Excel 对象”上点鼠标右键，依次点击“插入” ->“模块”，创建“模块1”，并在该模块中输入内容：
Sub 转换（）
MsgBox Application.WorksheetFunction.Degrees(3.14)
End Sub
点击“运行子过程/用户窗体”按钮，在弹出的对话框中选择“转换”，然后点击“运行”按钮。
程序弹出对话框，结果与在Excel中利用公式输出的结果一样，只是有效数字的位数不一样，这可以根据需要加以取舍。
总结：在进行VBA编程时，可以通过WorkSheetFunction方法来实现对Excel函数的引用，借此，可以方便我们对函数的引用，避免花费更多的时间在自定义函数上，有效的提高了工作效率。
