我正在搜索将每个单词的首字母转换为大写的公式(仅此而已)。任何想法如何做到这一点? 例如: “我的WAA任务”应转换为“我的WAA任务” 我找到了PROPER函数,但它也将所有其他字母都转换为小写(因此它给了我“我的Waa任务”),但我不需要这个
答案 0 :(得分:1)
两种方法,
公式,仅适用于Office 365或更高版本:
=TEXTJOIN(" ",,UPPER(LEFT(TRIM(MID(SUBSTITUTE(A1," ",REPT(" ",99)),(ROW($A$1:INDEX($A:$A,LEN(A1)-LEN(SUBSTITUTE(A1," ",""))+1))-1)*99+1,99)),1)) & MID(TRIM(MID(SUBSTITUTE(A1," ",REPT(" ",99)),(ROW($A$1:INDEX($A:$A,LEN(A1)-LEN(SUBSTITUTE(A1," ",""))+1))-1)*99+1,99)),2,99))
这是一个数组公式,必须使用Ctrl-Shift-Enter而不是enter进行确认。
UDF,可以与旧版本一起使用。
Function fLetter(str As String) As String
Dim strarr() As String
strarr = Split(str)
Dim i As Long
For i = LBound(strarr) To UBound(strarr)
strarr(i) = UCase$(Left$(strarr(i), 1)) & Mid$(strarr(i), 2)
Next i
fLetter = Join(strarr, " ")
End Function
然后致电:
=fLetter(A1)