请问查找代码如何优化？

enrun

请教老师，想实现从一个工作表的单元格直接链接另一个工作表的单元格，因表格数据多，公式多，请问这段代码如何优化？
Sub 提取()
t = Timer
Dim i, x, y, rng As Range
x = Range("A65536").End(xlUp).Row
y = Sheets("方案").Range("A65536").End(xlUp).Row + 1
For i = 3 To x Step 1
For Each rng In Sheets("方案").Range("A3:A" & y)
If Cells(i, "A") <> "" And rng = Cells(i, "A") Then
Cells(i, "C").Formula = "=方案!" & Replace(rng.Address, "A", "C")
Cells(i, "D").Formula = "=方案!" & Replace(rng.Address, "A", "D")
Cells(i, "E").Formula = "=方案!" & Replace(rng.Address, "A", "E")
End If
Next
Next
MsgBox "提取完成！用时" & Timer - t & "秒！"
End Sub

山菊花

供参考。

enrun

山菊花 发表于 2020-1-30 17:18
供参考。

是我没有表述清楚，有数据的地方需要用公式链接，不是纯数值。请老师再帮忙看看。

enrun

如图片所示。

liulang0808

微调，供参考。。。。。。

enrun

山菊花 发表于 2020-1-30 17:18
供参考。

谢谢老师，看到有公式的版本，学习了！

enrun

liulang0808 发表于 2020-1-30 17:41
微调，供参考。。。。。。

谢谢老师，速度提高很多！

enrun

山菊花 发表于 2020-1-30 17:18
供参考。

老师，您的代码 中n=ds(Arr(i, 1)) ，我修改成 ds(Arr(i, 1)) = n，运行后出错，请问是为什么？

山菊花

n=ds(Arr(i, 1)) 是查字典，ds(Arr(i, 1)) = n是编辑字典。
不明白你为什么要这样改。

enrun

懂了，谢谢老师！