Hur ändrar jag textsträngar till meningsfall i Microsoft Excel?

Du kan behöva ändra textsträngar till meningsfall i Microsoft Excel. Om vi ​​antar att det finns hundratals textsträngar i versaler eller små bokstäver, är det inte ett bra val att ändra dem manuellt en efter en. Finns det enkla knep för att ändra textsträngar till meningsfall i Microsoft Excel?

• Ändra textsträngar till meningsfall i Excel med VBA
• Ändra textsträngar till meningsfall i Excel med Kutools för Excel

Ändra textsträngar till meningsfall i Excel med VBA

Om du har erfarenhet av Microsoft Excel är det bra att använda VBA för att ändra textsträngar till meningsfall.

Steg 1: Håll ner ALT + F11 nycklar och det öppnar Microsoft Visual Basic for Applications-fönstret.

Steg 2: Klicka Insert > Modulernaoch klistra in följande makro i Modulerna fönster.

Sub SentenceCase()
'Updateby Extendoffice
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
    xValue = Rng.Value
    xStart = True
    For i = 1 To VBA.Len(xValue)
        ch = Mid(xValue, i, 1)
        Select Case ch
            Case "."
            xStart = True
            Case "?"
            xStart = True
            Case "a" To "z"
            If xStart Then
                ch = UCase(ch)
                xStart = False
            End If
            Case "A" To "Z"
            If xStart Then
                xStart = False
            Else
                ch = LCase(ch)
            End If
        End Select
        Mid(xValue, i, 1) = ch
    Next
    Rng.Value = xValue
Next
End Sub

Steg 3: Tryck på F5 för att köra detta makro, då dyker en dialog upp på skärmen för att välja ett intervall, se skärmdump:

Steg 4: Klicka Ok, och du kan se resultatet enligt nedan:

Ändra textsträngar till meningsfall i Excel med Kutools för Excel

Kutools för Excel: med mer än 300 praktiska Excel-tillägg, gratis att prova utan begränsning på 30 dagar. Hämta nu

VBA-makro kanske inte är lätt för startanvändare av Microsoft Excel. Var snäll och oroa dig inte för det. Kutools för Excel's Ändra ärende verktyget kan snabbt ändra alla textsträngar till meningsfall i val.

Steg 1: Välj det område där du vill ändra textsträngar till meningsfall.

Steg 2: Klicka på Kutools > text > Ändra ärende .... Se skärmdump:

Steg 3: In Ändra ärende dialogrutan, kolla på Mening Fall. Alternativ och klicka OK or Ansök knapp.

Då kommer du att se alla typer av textsträngar ändras till meningsfall i valet. Se följande bild:

Kutools för Excel's Ändra ärende verktyget kan snabbt ändra textfodralet till ÖVRE, LÄGRE, GODKÄNT, Meningstecken och TOGGLE-FODRAL. Klicka för att veta mer ...

Relativa artiklar:

• Ändra fallet i texten 2007 och 2010
• Ändra textsträngar till versaler
• Ändra versaler till gemener
• Ändra versaler till rätt bokstav eller titel