如何用VBA将首字母变大写其余不变？

L5O2V0E

例如将 hello worLD  TTO变成 Hello WorLD TTO。如果只有一个单词用str=Ucase(Left(str,1))&Right(str,Len(str)-1)就可以了，但是多个单词请问如何处理？

liulang0808

楼主这样的需求，先split拆分，然后再join组合一起看看吧

L5O2V0E

liulang0808 发表于 2019-1-21 10:33
楼主这样的需求，先split拆分，然后再join组合一起看看吧

OK，3Q，我研究看看

dsmch

1. 函数公式=PROPER("hello worLD  TTO")

复制代码

L5O2V0E

dsmch 发表于 2019-1-21 10:36

这个公式非首字母的大写字母会变成小写

dsmch

L5O2V0E 发表于 2019-1-21 10:39
这个公式非首字母的大写字母会变成小写

1. Sub dsmch()
   
2. [a1] = "hello worLD  TTO"
   
3. With CreateObject("vbscript.regexp")
   
4.     .Pattern = "\b[a-z]{1}"
   
5.     .Global = True
   
6.     For Each m In .Execute([a1])
   
7.         [a1] = Replace([a1], m, UCase(m))
   
8.     Next
   
9. End With
   
10. End Sub

复制代码