VBA中的Excel公式

Question

我试图弄清楚，为什么函数公式在 excel 中工作并且不能简单地添加到 VBA

Sub btn_Get_Type_Click()

    Dim lr As Long

    With ThisWorkbook.Worksheets("Sheet1")
        lr = .Cells(Rows.Count, 1).End(xlUp).Row
        .Range("E2:E" & lr) = "=IF(D2>0,IF(ISNUMBER(MATCH(CORPORAT!A1:E30,5)),'CORPORATE','FIRM'),'HUMAN')"

    End With
End Sub

任何想法 ？还是我完全走错路了？

Answer 1

你想创建什么公式？

现在的答案是你的 MATCH由于您没有提供搜索条件以及 5，因此该功能将不起作用不是有效的选择。 -1 (小于)，0' (Exact) or 1`(大于)是。