时间戳

首页 > 解决方案 > 句号后第一个字母大写的Excel公式

excel - 句号后第一个字母大写的Excel公式

问题描述

是否有任何公式可以在 Excel 中用于将句点后的第一个字母大写？我在一个单元格中有多个句子，每个句子都用句点分隔。我已经尝试过PROPERFUNCTION 和UPPERFUNCTION 但我没有得到我想要的结果。

标签： excelexcel-formula

解决方案

以下公式可能对您有用：

=SUBSTITUTE(SUBSTITUTE(PROPER(SUBSTITUTE(SUBSTITUTE(LOWER(A1),". ","9z9")," ","zxz")),"9Z9",". "),"zxz"," ")

它基本上SUBSTITUTE是带有一些 3 个字符串的句点和空格来欺骗PROPER代码，就好像每个句子只有一个单词一样。然后用句点和空格重新SUBSTITUTE字符串。

来源。

编辑：在@chronocidal 的警告之后，我意识到该公式无法处理已经存在的大写字符，因为它基本上在一开始就将所有内容都小写了。所以看来我们现在需要一个自定义公式解决方案。

当以下代码输入到Excel 文件中的模块时。我们将能够使用自定义公式sCase来实现我们所需要的。此解决方案的积分转到此处。

Public Function sCase(ByRef strIn As String) As String
Dim bArr() As Byte, i As Long, i2 As Long
If strIn = vbNullString Then Exit Function
Let bArr = strIn
Select Case bArr(0)
    Case 97 To 122
        bArr(0) = bArr(0) - 32
End Select
For i = 2 To UBound(bArr) Step 2
    Select Case bArr(i)
        Case 105
            If Not i = UBound(bArr) - 1 Then
                Select Case bArr(i + 2)
                    Case 32, 33, 39, 44, 46, 58, 59, 63, 148, 160
                        If bArr(i - 2) = 32 Then _
                            bArr(i) = bArr(i) - 32
                End Select
            ElseIf bArr(i - 2) = 32 Then _
                bArr(i) = bArr(i) - 32
            End If
        Case 33, 46, 58, 63
            For i2 = i + 2 To UBound(bArr) Step 2
                Select Case bArr(i2)
                    Case 97 To 122
                        bArr(i2) = bArr(i2) - 32
                        i = i2:   Exit For
                End Select
                Select Case bArr(i2)
                    Case 32, 33, 46, 63, 160
                    Case Else
                        i = i2:   Exit For
                End Select
            Next
    End Select
Next
sCase = bArr
End Function

推荐阅读