将特定函数转换为VBA代码

我需要帮助将函数转换为VBA代码，有人能帮我吗

以下是函数：

=IF(H4&I4&J4="TEXT"&"TEXT"&"TEXT";"TEXT";
IF(J4&I4="TEXT"&"TEXT";H4;
IF(H4&J4="TEXT"&"TEXT";I4;
IF(H4&I4="TEXT"&"TEXT";J4;
IF(J4="TEXT";(H4+I4)/2;IF(I4="TEXT";(H4+J4)/2;
IF(H4="TEXT";(I4+J4)/2;(H4+I4+J4)/3))))))

我试图在VBA中编写类似的内容，但它不起作用

If Cells(H4) and Cells (I4) and Cells (J4) = "TEXT". Then 

---

我不能理解这个公式。你想干什么

关于比较单元格的文本，请使用如下VBA代码

Range("H4").Value = "TEXT"

因此

如果单元格（H4）和单元格（I4）以及单元格（J4）=“TEXT”，则
变为

If Range("H4").Value = "TEXT" And _
Range("I4").Value = "TEXT" And _
Range("J4").Value = "TEXT" Then
    '~~> Do Something
End If

上面的代码也可以写成

Dim strString As String

strString = Range("H4").Value & Range("I4").Value & Range("J4").Value

If strString = "TEXTTEXTTEXT" Then
    '~~> Do Something
End If

我附加的函数来自excel中的公式栏，这可能就是您不理解的原因？但是现在我想把函数从公式栏转换成VBA代码。不过，我想在你的帮助下，我能找到答案。谢谢你！！你试过使用宏录制器吗？