将 excel 公式 if/or 语句添加到 vba 代码

如何解决将 excel 公式 if/or 语句添加到 vba 代码

我有这个从另一个列表创建列表的 vba 代码。 我想要的是在 E 列的新列表的每一行添加这个公式：

=IF(OR(D2="TARM01",D2 = "BOUM34",D2="LESB01"),"true","false")

我想在这个 vba 代码中添加公式：

Sub m()
Dim c As Range
ActiveWorkbook.RefreshAll
Range("A:E").Delete
For Each c In Sheets("Feuil1").Range("b2:b300")
    If c.displayFormat.Interior.Color = vbYellow Then
        Sheets("Feuil3").Range("A" & Rows.Count).End(xlUp).Offset(1).EntireRow.Value = c.EntireRow.Value
    End If
Next c
End Sub

我只是不知道如何链接它们..谢谢

解决方法

公式到范围

• （一个单元格）范围变量 (dCell) 的实现使代码更具可读性，并且可以轻松确定公式的最后一行。

Option Explicit

Sub m()
    ActiveWorkbook.RefreshAll
    Range("A:E").Delete
    Dim dCell As Range
    Set dCell = Sheets("Feuil3").Range("A" & Rows.Count).End(xlUp).Offset(1)
    Dim c As Range
    For Each c In Sheets("Feuil1").Range("B2:B300").Cells
        If c.DisplayFormat.Interior.Color = vbYellow Then
            dCell.EntireRow.Value = c.EntireRow.Value
            Set dCell = dCell.Offset(1)
        End If
    Next c
    Sheets("Feuil3").Range("E2:E" & dCell.Row - 1).Formula = "=IF(OR(D2" _
        & "=""TARM01"",D2=""BOUM34"",D2=""LESB01""),""true"",""false"")"
End Sub