Question

=VLOOKUP(A2,表2!A:B,2,0) 如何用VBA按钮表达

Answer 1

1点击开发工具选项卡---插入---active控件---命令按钮
2在表格区域拖动出按钮
3在按钮上右击----查看代码
4在显示出的两行代码中间粘贴以下代码
ActiveCell.FormulaR1C1 = "=VLOOKUP(R[1]C,表二!C:C[1],2,0)"
Range("A2").Select
5关闭VBA界面
6再次点击设计模式，即可完成VBA按钮表达

Answer 2

如果不懂如何生成按钮及关联程序再追问，这里不解答这部分了。
因为你表达的有歧义，故下面给三种方法。

'一、为指定单元格写入公式（稍微修改指定单元格也可以是变量）：
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