在ms365中，尝试：

B1 ‡中的公式：

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

‡如果除了大写字母之外没有一个字符出现，这将抛出错误。在这种情况下，只需在内部TEXTSPLIT()中添加一个大写字母之外的尾随字符，例如：=CONCAT(TEXTSPLIT(A1,TEXTSPLIT(A1&"a",CHAR(ROW(65:90)),,1)))
对于Excel 2021：

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

MS 365的另一个;

=LET(
Input,A1,
LetterArray,MID(Input,SEQUENCE(LEN(Input)),1),
Filtered, FILTER(LetterArray, EXACT(LetterArray, UPPER(LetterArray))*(LetterArray<>" ")*(ISERR(NUMBERVALUE(LetterArray))), "No Uppercase letters found"),
TEXTJOIN("", TRUE, Filtered)
)

其中A1包含文本输入。

我知道你说的是Excel 2021，但我设法拼凑出了一些〉几乎〈在Excel 2010中工作的东西。
不幸的是，在这个版本中似乎没有任何方法来连接数组，所以我不得不为那个部分做一个UDF，但我相信新版本中的“CONCAT”函数可能会代替我不得不做的UDF工作。如果有人能为我测试一下，那就太好了x）
LET也会使这个更短...而且这是一个数组公式，所以用ctrl+shift+enter输入

=SUBSTITUTE(myConcat(IF(EXACT(MID(O1;ROW(INDIRECT("A1:A"&LEN(O1)));1);UPPER(MID(O1;ROW(INDIRECT("A1:A"&LEN(O1)));1)));UPPER(MID(O1;ROW(INDIRECT("A1:A"&LEN(O1)));1));""));" ";"")

“作弊”部分是myConcat，其他部分都是用公式构建。

Function myConcat(ByVal arr As Variant) As String
    For i = LBound(arr) To UBound(arr)
        For j = LBound(arr, 2) To UBound(arr, 2)
            myConcat = myConcat & arr(i, j)
        Next j
    Next i
End Function

• 不幸的是，数字和特殊字符会把这个问题抛到九霄云外。我可能能弄清楚数字，但不确定特殊字符。