将工作表1 A列中的值匹配工作表2 A列中的值，如果找不到值，则删除该行

Question

“ Set fn = sh2.Range（“ A：A”）。Find（Range.Value，，xlValues，xlWhole）“行给我“ Range.Value”上出现错误“参数不可选”。

我希望代码从最后一行移到顶部。查看Sheet1的列A的值。然后在Sheet2的A列中搜索它，如果在那里，则删除Sheet 1上的整行。但是我无法弄清楚语法/问题，还是有更好的方法重写那一行？

谢谢！

完整代码（已编辑）：

select

Answer 1

Range.Value（实际上是Range().Value）不是有效的语法，因为Range()期望有一个参数，而您没有给它，这给.Find一个无效的参数也是如此。

Range.Value应该是sh1.Cells(c, 1).Value或sh1.Range("A" & c).Value。