Formula Help - Old Morefunc Add-In

[ststern45]

I have an old formula that used the MoreFunc add-in.
I guees this Add-In is no longer supported in newer versions of Excel.

The formula is MCONCAT

This is the formula where help is needed:

Cell A1 = 84579
Formula Cell B1
={MCONCAT(IF(MOD((MID($A1,{1,2,3,4,5},1)+0),8)<3,"O","I"))}

Formula Evaluation
1>MCONCAT(IF(MOD((MID($"84579",{1,2,3,4,5},1)+0),8)<3,"O","I"))
2>MCONCAT(IF(MOD(({'8','4','5','7','9'}+0),8)<3,"O","I"))
3>MCONCAT(IF(MOD(({'8','4','5','7','9'},8)<3,"O","I"))
4>MCONCAT(IF(MOD({8,4,5,7,9},8)<3,"O","I"))
5>MCONCAT(IF({0,4,5,7,1}<3,"O","I"))
6>MCONCAT(IF({TRUE,FALSE,FALSE,FALSE,TRUE},"O","I"))
7>MCONCAT({'O','I','I','I','O'})
8>OIIIO

If a workaround is possible I would be very greatful.

Thanks in advance

 

[jorismoerings]

Hi,

Compatibility can be an issue when using an add-inn. Excel provided the TEXTJOIN function in 2017 which was trying to improve deficiencies in the CONCATENATE function.
While Excel Help doesn’t reveal it, the TEXTJOIN function does support an array as the third argument. Unfortunately that will only help if the version you need the work-a-round for is O365 or Excel 2019.

If that's the case you could use:

Book1
	A	B
1	84579	OIIIO
Sheet2

Cell Formulas
Range	Formula
B1	B1	=TEXTJOIN("",TRUE,(IF(MOD((MID($A1,{1;2;3;4;5},1)+0),8)<3,"O","I")))
Press CTRL+SHIFT+ENTER to enter array formulas.

If you're not using the mentioned Office version, there's an alternative in VBA which replicates the TEXTJOIN function
Not my invention so look at this : Replicating TEXTJOIN using VBA – Power BI & Excel are better together