参考循环

Question

我有一份正在处理的数据文档，但有些内容是错误的，所以我需要自动覆盖特定的单元格。我正在设置一个遍历column G中每个单元格的循环，如果存在某个值，则将公式插入同一行但位于column J的单元格中。我已经设置了循环，但我不知道如何将公式放入新单元格并将其与当前单元格相关联。我认为R [] C []公式可能是要走的路，但是当公式不直接时，例如带有IF和MATCHES等的VLOOKUPS，这会让人感到困惑......

Sub FindDefects()

    Dim RngCl As Range
    Dim Rngg As Range

    Set Rngg = Sheet1.Range("A1:A6")

    For Each RngCl In Rngg.Cells
        If RngCl.Value = "TEXT" Then
            RngCl.Offset(0,3).FormulaR1C1 = "R[0]C[-1]/R[0]C[3]"
        Else
            'Nada
        End If
    Next RngCl

End Sub

我不确定从哪里开始，尤其是如何添加公式，例如：

=IF(LEN(J9)>0,J9*VLOOKUP(M9,Core!A:C,3,FALSE)/VLOOKUP(K9,Core!A:C,3,FALSE),P9)

而不是R1C1公式。对前进的任何帮助表示赞赏！