find函数的查找对象在循环语句中是变量的时候，求问老师们错哪儿了

本王很烦

我的目的是计算，多列指标，多个年份的相关系数，不过这个不重要，因为算法我已经知道怎么办了，问题是在循环语句中使用find函数的时候，第一个参数也就是查找对象是变量的时候，一直提示“类型不匹配”，求问各位老师们，到底哪里错了？ find函数用法有问题吗？
Sub 计算相关系数()
Dim x, j, r1, r2, k As Integer
For j = 4 To 13 Step 3
r2 = 1
For x = 2010 To 2019
r1 = r2 + 1
r2 = Application.Evaluate("=Worksheets(1).[a:a].Find(" & x & ", searchdirection:=xlPrevious).Row")
Worksheets("相关系数").Cells(k, j - 2) = Application.WorksheetFunction.Correl(Range(Cells(r1, j), Cells(r2, j)), Range(Cells(r1, j - 2), Cells(r2, j - 2)))
Worksheets("相关系数").Cells(k, j - 1) = Application.WorksheetFunction.Correl(Range(Cells(r1, j), Cells(r2, j)), Range(Cells(r1, j - 1), Cells(r2, j - 1)))
k = k + 1
Next
k = 2
Next
End Sub

abc123281

没附件测试，估计是单元格没有指定父对象，所以报错

本王很烦

添加了附件，求各位老师指教！

本王很烦

abc123281 发表于 2019-12-20 21:40
没附件测试，估计是单元格没有指定父对象，所以报错

附件添加了，在三楼，求老师指教！

abc123281

看了一下   你想要要实现的效果  方法不当  有很多基础语法错误  看下图  报错时  看本地窗口 r2为错误值  k为0

abc123281

若想要解决问题，可以详细说明你想要实现的效果  也许会有答案吧

本王很烦

abc123281 发表于 2019-12-20 22:35
若想要解决问题，可以详细说明你想要实现的效果  也许会有答案吧

已经解决了，谢谢啦