=Concat(B1:B6;",";  C1:C6;"=";3;  D1:D6;">=";20;  E1:E6;"=";"text3") до вида
=Concat(B1:B6;",";  C1:C6=3;      D1:D6>=20;      E1:E6="text3") ?

Function Foo(ByVal Valid As String, a, b) As Boolean
    With CreateObject("ScriptControl")
        .Language = "JScript"
        .AddCode "function fn(a,b,c,d,e){return " & Valid & "}"
        Foo = .Run("fn", a, b)
    End With
End Function


Sub Example()
    MsgBox Foo("a > b", 4, 3) ' True
    MsgBox Foo("a > b", 4, 7) ' False
End Sub

.Language = "JScript"

Option Explicit
Dim objScript As Object

' Сравнение скорости выполнения простейшей функции в VBScript и VBA
Sub Time_Test()
  
  Const N& = 1000000
  Dim i&, t1!, t2!, ok As Boolean
  Debug.Print "N = " & N
  
  t1 = Timer
  For i = 1 To N
    ok = Foo1(i, "Text3")
  Next
  t1 = Timer - t1
  Debug.Print "VBScript", Round(t1, 3) & " sec"
  
  t2 = Timer
  For i = 1 To N
    ok = Foo2(i, "Text3")
  Next
  t2 = Timer - t2
  Debug.Print "VBA", Round(t2, 3) & " sec"
  Debug.Print "VBA is faster in " & Round(t1 / t2, 0) & " times"
  
End Sub

' VBScript function
Function Foo1(a, b)
  If objScript Is Nothing Then
    Set objScript = CreateObject("ScriptControl")
    With objScript
      .Language = "VBScript"
      .AddCode "Function Fn(a,b):Fn = a=1 And b=""text3"":End Function"
    End With
  End If
  Foo1 = objScript.Run("Fn", a, b)
End Function

' VBA function
Function Foo2(a, b)
  Foo2 = a = 1 And b = "text3"
End Function
'

a * 2 > b - 1
'или такое
a / 2 + a - b <= b - a
'можно даже так (надо только одну строчку в коде дописать, чтобы была возможность работы с приложением)
Target.Offset(1).Value = a + b

=Concat(B1:B6;",";  1/0;1/0;  C1:C6;"=";3;  D1:D6;">=";20;  E1:E6;"=";"text3"; ...)
где 1/0 - исключить/оставить повторы; выполнить/пропустить сортировку