excel - 将公式更改为下一个单元格

Question

我正在尝试将 vlookup 中的值与左侧列中的静态值进行比较，然后在匹配时粘贴该值。

J 列包含静态值
K 列包含一个引用另一个工作表的 vlookup 公式

我需要遍历 K 列，如果 vlookup 中的值与 J 列同一行中的值匹配，则将该值粘贴到 K 列中。

因此，如果单元格 J2 = 240.89，并且单元格 K2 中的 vlookup 值 = 240.89，则将值 240.89 粘贴到 K2 中。

到目前为止，我的代码在范围内循环，但在最后粘贴的值处停止并忽略 vlookup 公式。

这是我的代码:

Option Explicit

Sub CheckValue()

Dim myRange As Range
Dim cell As Range
Set myRange = Range("K2:K3194")

For Each cell In myRange
    If cell.Value = cell.Offset(0, -1) Then
    cell.Copy
    cell.PasteSpecial xlPasteValues
    End If
    Next cell
End Sub

任何帮助表示赞赏!

Answer 1

只是为了好玩另一个选择:

Sub Test()

Dim ws as Worksheet: Set ws = Thisworkbook.Worksheets("Sheet1")
ws.Range("K2:K3194").Value = ws.Evaluate("IF(K2:K3194=J2:J3194,J2:J3194,FORMULATEXT(K2:K3194))")

End Sub

注:这需要 FORMULATEXT ，自 Excel2013 起可用的功能。