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

L5O2V0E

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

ctrain

可以先用split方法将hello worLD  TTO分割成数组，再循环处理。

飞天篮球猪

可以用正则，VBA里的replace不知道可不可以写成这样，以下是JS中的写法，供参考

1. 'hello worLD  TTO'.replace(/(\b[a-z]/g,function(x){return x.toUpperCase()})

复制代码

我是在Power Query里完成的：

L5O2V0E

飞天篮球猪 发表于 2019-1-21 10:50
可以用正则，VBA里的replace不知道可不可以写成这样，以下是JS中的写法，供参考

我是在Power Query里完 ...

我研究下，3Q

刀羊

是类似于 工作表函数 PROPER()吗？

AmoKat

用函數的方法比較笨拙一些，每次只能修改一個字，所有要往右複製多格公式來完成

A1 = hello worLD TTO
B2 =SUBSTITUTE(A1, TRIM(MID(SUBSTITUTE(A1," ",REPT(" ",99)),COLUMN(A1)*99-98,99)), UPPER(LEFT(TRIM(MID(SUBSTITUTE(A1," ",REPT(" ",99)),COLUMN(A1)*99-98,99))))&MID(TRIM(MID(SUBSTITUTE(A1," ",REPT(" ",99)),COLUMN(A1)*99-98,99)),2,99))

右拉複製公式至K，若超過10個字就需要在右拉複製

魔人大队

Sub ss()
a = "hello worLD  TTO"
m = ""
arr = Split(a, " ")
For Each i In arr
   If i <> "" Then
    t = UCase(Left(i, 1)) & Mid(i, 2, Len(i) - 1)
    m = m & t & " "
    End If
   
Next
MsgBox m

End Sub

AmoKat

1. Sub ex()
   
2.     tx = "hello worLD  TTO"
   
3.     tx2 = tx
   
4.     For Each w In Split(Application.Trim(tx), " ")
   
5.         Mid(w, 1, 1) = UCase(Left(w, 1))
   
6.         tx2 = Replace(tx2, w, w, , , vbTextCompare)
   
7.     Next
   
8.     MsgBox tx2
   
9. End Sub

复制代码

ggmmlol

飞天篮球猪 发表于 2019-1-21 10:50
可以用正则，VBA里的replace不知道可不可以写成这样，以下是JS中的写法，供参考

我是在Power Query里完 ...

虽然我的【超级查找替换】没有PQ那样有众多的M函数，但它可以利用Excel丰富的工作表函数来构造公式，同样能完全实现相同的效果，而且方法更简单：

  查找内容：
  (^|[^a-zA-Z])([a-z])
  替换为：
  $1"&UPPER("$2")&"
  添加前缀：
  ="
  添加后缀：
  "
演示如下：