excel - 如果 cell.value A = x，则 cell.value N = 公式

Question

尝试修复我的电子表格以根据 A 列的值将公式粘贴到 N 列中。本质上，如果单元格 A6 = "Text 1" 那么单元格 N6 = "Formula 1"，如果单元格 A7 = "Text 2" 那么单元格N7 = "Formula 2" 然后让这个循环遍历所有行。

VBA 非常业余，所以过度谷歌搜索给了我下面的内容。

Sub Test()
    lr = Cells.Find("*", Cells(1, 1), xlFormulas, xlPart, xlByRows, xlPrevious, False).Row

    For Each Cell In Range("A6:A" & lr)
        If Cell.Value = "Call Options" Then
            Cell.Offset(0, 13).Value = "=-(B6*100)*E6"
        ElseIf Cell.Value = "Put Options" Then
            Cell.Offset(0, 13).Value = "=(B6*100)*E6"
        End If
    Next Cell  
End Sub

此时，我点击运行，但没有任何变化。没有错误消息或错误出现。

如有任何帮助，我们将不胜感激。

Answer 1

如果您希望它引用同一行中的单元格，您需要这样做:

Cell.Offset(0, 13).Value = "=-(B" & Cell.Row & "*100)*E" & Cell.Row

如果你想让你的 If 不区分大小写，请使用:

LCase(Cell.Value) = LCase("Call Options")