我可以在IF THEN Else声明中加入公式吗？

Question

在链接表中，我想用一个公式填充H列。要使用的公式取决于F列中的值。每天，F列中的行数和可能值的数量可以更改。我认为vba是设置它的最佳方法，但我遇到了代码问题。这甚至会成为启动代码的方式吗？

Sub Macro4()
Dim lastRow As Long
    lastRow = Range("H" & Rows.Count).End(xlUp).Row
    Label = Range("F2") = "AUD/JPY"

Answer 1

我为H列制定了公式，但您应该可以将此模式应用于您需要输入的任何公式。

Sub Macro4()
    Dim lastRow As Long
    Dim xCell As Range
    lastRow = Range("H" & Rows.Count).End(xlUp).Row
    For Each xCell In Range(ActiveSheet.Range("F2"), ActiveSheet.Range("F2").End(xlDown))
        Select Case xCell.Value
        Case "AUD/JPY"
            ActiveSheet.Cells(xCell.Row, "H").Formula = "=G" & xCell.Row & "/E" & xCell.Row
        Case "AUD/USD"
             ActiveSheet.Cells(xCell.Row, "H").Formula = "=2*G2"
        '''Case etc... write other cases you need to handle
        End Select
    Next
End Sub