我想从列中找到大写字符串，如果可用，则选择前三个字母并以小写字母打印

Question

我想从列中找到大写字符串，如果可用，则选择前三个字母并以小写字母打印。 考虑我在列中有数据，例如：

 oracle-DATA-key  --> convert it --> oracle-dat-key
key-JAVABEAN    ---> convert it --> key-jav 

我能够找到=NOT(EXACT(LOWER(F5),F5)) ，如果有可用的资本价值，这将是正确的。 但这我不想

Answer 1

如下所示，它完全基于单元格中的第一个字符。 如果您要查找任何大写字母，则不会。

=IFERROR(IF(AND(CODE(F5)<=90,CODE(F5)>=65),LOWER(LEFT(F5,3)),""),"")

一个正则表达式函数，用于输出更改后的字符串，更改所有匹配项

Public Function ReplacedString(ByVal r As Range) As String

    With New RegExp
        .Global = True
        .MultiLine = True
        .IgnoreCase = False
        .Pattern = "[A-Z][a-z]{2,}"
        outputString = r.Text

        If .test(outputString) Then
            For Each currMatch In .Execute(r.Text)
                outputString = Replace(outputString, currMatch.Value, LCase$(Left(currMatch, 3)))
            Next currMatch
        Else
            ReplacedString = r.Text
        End If
    End With

    ReplacedString = outputString

End Function

并使用以下函数循环目标列：

Public Sub ReplaceStrings()
    Const columnToReplaceIn = 1                  'e.g. A
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("Sheet1")   'change as appropriate

    Application.ScreenUpdating = False
    With ws
        For Each rng In Intersect(.Columns(columnToReplaceIn), .UsedRange)
            rng.Value = ReplacedString(rng)
        Next rng
    End With
    Application.ScreenUpdating = True
End Sub
Public Function ReplacedString(ByVal r As Range) As String

    With New RegExp 'CreateObject("VBScript.RegExp")   ''Late binding if not Microsoft vbscript regular expressions referenc
        .Global = True
        .MultiLine = True
        .IgnoreCase = False
        .Pattern = "[A-Z][a-z]{2,}"
        outputString = r.Text

        If .test(outputString) Then
            For Each currMatch In .Execute(r.Text)
                outputString = Replace(outputString, currMatch.Value, LCase$(Left(currMatch, 3)))
            Next currMatch
        Else
            ReplaceString = r.Text
        End If
    End With

    ReplacedString = outputString

End Function

Answer 2

您提供了非常小的数据集进行测试。 这是使用RegExp的初步概念

Public Function ReplaceFirstCaps(strInput As String) As String
Dim oM As Object
With CreateObject("VBScript.RegExp")
    .Pattern = "[A-Z]{3,}"
    If .Test(strInput) Then
        Set oM = .Execute(strInput)
        ReplaceFirstCaps = Replace(strInput, oM(0), LCase(Left(oM(0), 3)), , , vbBinaryCompare)
    Else
        ReplaceFirstCaps = strInput
    End If
End With
End Function

然后像这样在工作表中使用它：

=ReplaceFirstCaps(A2)