我在 Excel 中有一些文本项,并且我喜欢将每个单词的第一个字母大写。但是,很多文本都包含短语“IT”,并且使用当前的大写方法(PROPER)将其更改为“It”。有没有办法只将每个单词的第一个字母大写而不将每个单词中的其他字母大写?
问问题
2602 次
4 回答
3
这是一种VBA方式,将其添加到模块中&=PrefixCaps("A1")
Public Function PrefixCaps(value As String) As String
Dim Words() As String: Words = Split(value, " ")
Dim i As Long
For i = 0 To UBound(Words)
Mid$(Words(i), 1, 1) = UCase$(Mid$(Words(i), 1, 1))
Next
PrefixCaps = Join(Words, " ")
End Function
于 2012-11-20T11:16:02.177 回答
0
于 2012-11-20T11:08:53.647 回答
0
这有点复杂,但我确实发现如果您的电子表格非常简单,您可以将其复制并粘贴到 word 中并使用它的编辑功能,然后将其复制并粘贴回 Excel。对我来说效果很好。
于 2012-12-19T13:46:51.730 回答
0
修复文本中的双空格:
Public Function PrefixCaps(value As String) As String
Dim Words() As String: Words = Split(value, " ")
Dim i As Long
For i = 0 To UBound(Words)
If Len(Words(i)) > 0 Then
Mid$(Words(i), 1, 1) = UCase$(Mid$(Words(i), 1, 1))
End If
Next
PrefixCaps = Join(Words, " ")
End Function`
于 2021-05-06T16:06:42.047 回答