Você pode envolver sua fórmula complexa em um UDF que faz a formatação:
Function FormatComplex(r As Variant, fmt As String) As String
With Application.WorksheetFunction
FormatComplex = Format(.ImReal(r), fmt) & Format(.Imaginary(r), fmt) & "i"
End With
End Function
Chame como
=FormatComplex(IMSQRT(-2),"+0.000")
resultado:
+0.000+1.414i