在表2中使用VLOOKUP函数在A列中查找B20

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函数的引用，借此，可以方便我们对函数的引用，避免花费更多的时间在自定义函数上，有效的提高了工作效率。

以上就是在表2中使用VLOOKUP函数在A列中查找B20的详细内容，更多请关注php中文网其它相关文章！