如何使用VBA实现根据指定行自动粘贴对应列的内容？(关键词-关键字)

该问题来自社区帖: https://bbs.csdn.net/topics/617087615.

图一为原表，图二为目标表，图二中Number列固定不变，想实现根据固定Number，将图一中的各列关键字自动分配到对应位置。

 

图一

 

图二 

vlookup不就搞定了吗