有两张表格，使用vlookup函数将B表格中的数据匹配到A表中，现清空B表中数据，仅保留A表中计算结果，使用VBA代码

可以使用以下VBA代码来实现：Sub Vlookup()
Dim i As Integer
Dim LastRowA As Integer
Dim LastRowB As Integer'获取A表和B表的最后一行
LastRowA = Sheets("A").Range("A" & Rows.Count).End(xlUp).Row
LastRowB = Sheets("B").Range("A" & Rows.Count).End(xlUp).Row'从A表的第二行开始循环
For i = 2 To LastRowA
'使用VLOOKUP函数查找B表中的数据，并将结果写入A表
Sheets("A").Range("C" & i).Value = Application.WorksheetFunction.VLookup(Sheets("A").Range("A" & i).Value, Sheets("B").Range("A2:B" & LastRowB), 2, False)
Next
End Sub