Concatenate only upper case letters

Question

In Excel (2021), I have a cell which contains words:

all Upper case LeTters supposed to be In result

And I need the result:

ULTI

Without VBA, how can I perform those tasks using only Excel functions?

After searching, I discovered that all "Upper case" and "concatenate" methods result in concatenate AND create an upper case, rather than concatenate IF uppercase.

Although I did find one, I believe (hope) there is a better solution because it is very ugly:

=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE
(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE
(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE
(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE
(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE
(SUBSTITUTE(SUBSTITUTE(txt,"a",""),"b",""),"c",""),"d",""),"e",""),
"f",""),"g",""),"h",""),"i",""),"j",""),"k",""),"l",""),"m",""),"n",""),"o",""),
"p",""),"q",""),"r",""),"s",""),"t",""),"u",""),"v",""),"w",""),"x",""),"y",""),
"z","")," ","")

Answer 1

In ms365, try:

The formula in B1^‡:

=CONCAT(TEXTSPLIT(A1,TEXTSPLIT(A1,CHAR(ROW(65:90)),,1)))

^‡ _{If not a single character other than uppercase alpha is present, this would throw and error. In such case, simply add a trailing character other than uppercase alpha to the inner TEXTSPLIT(), e.g: =CONCAT(TEXTSPLIT(A1,TEXTSPLIT(A1&"a",CHAR(ROW(65:90)),,1)))}

---

For Excel 2021:

=LET(x,MID(A1,SEQUENCE(LEN(A1)),1),CONCAT(IF((CODE(x)>64)*(CODE(x)<91),x,"")))