excel - VBA 用公式查找和替换（无法更新行）

Question

我需要运行一个findand replace，其中替换是一个公式。我不知道如何让公式引用它正在替换的单元格的行号。有人可以帮我理解这是如何工作的吗？

find 的值为

需要发布日期未知

并且重置价值将是

=VLOOKUP(A1,'VideoIndex.xlsx'!YouTube_ALLDATA,2,FALSE)

A1是改变每一行的值。

标签： excelvba

Answer 1

您的Find()方法的优点在于它返回一个Range Object。Range 对象具有有用的.Row属性。

Dim Rng As Range
Set Rng = Cells.Find("NEED DATE FOR PUBLISHING UNKNOWN")

您已经设置了Rng，现在您可以使用 row 属性了。

rng.Formula = "=VLOOKUP(A" & Rng.Row & ",'VideoIndex.xlsx'!YouTube_ALLDATA,2,FALSE)"