如何用VBA匹配相同的列

如题目所示，我想不用vlookup的方式，而用vba的方式匹配两张表格中相同的列，代码应该怎么写呢

两重循环比较下就可以了。