你好，请问这个问题EXCEL VBA 想实现将一个工作表的内容，赋值到另一个表中。能给我提供一下答案吗?谢谢。

Question

如题所述

Answer 1

在工作簿2设计一个按钮
for i=1 to range("A60000").end(xlup).row
set chaxun=workbooks("工作簿1").worksheets("sheet1").columns(1).find(what:=cells(i,1),lookat:=xlwhole
if chaxun is nothing then

else
cells(i,2)=workbooks("工作簿1").worksheets("sheet1").cells(chaxun.row,2)
endif
next

Answer 2

可以是可以，但你的描述有点不明白，什么叫赋值？还是复制？追问

工作薄1的sheet1工作表中的A1值 如果等于工作薄2的sheet1工作表中的A1值,那么将 工作薄1的sheet1工作表中B1列值，赋值给工作薄2的sheet1工作表中的B1值, 也就是需要循环判断 两个工作薄的A列，然后找到对应的值相同，就将B列的值赋值给另一个工作薄的B列

追答

呵呵，你的excel基本功不扎实，其实只要用vlookup函数就可以搞定的，完全不需要vba，在工作簿2的sheet1的b1写公式“=vlookup(a1,workbook1.sheet1!a:b,2,false)”,依次类推