How to change uppercase to proper or title case in Microsoft Excel?

Sometime you may need to change uppercase letters to title case or proper case. And this article will guide you to change all uppercase letters or text strings to proper case or title case in Microsoft Excel.

Change uppercase to proper/title case in Excel with PROPER function

Change uppercase to proper/title case in Excel with VBA code

Change uppercase to proper/title case in Excel with Kutools for Excel

Kutools for Excel: add 120 new features in Excel. Save one hour every day.
Classic Menu for Office: brings back classic menus to Office 2010 and 2013 (includes Office 365).
Office Tab: brings tabbed interface to Office as the use of web browser Chrome, Firefox and Internet Explorer.

Supposing you have to change the uppercase letters in A1:A10 to proper case in Microsoft Excel.


arrow blue right bubble Change uppercase to proper/title case in Excel with PROPER function

Hot
Amazing! Using Tabs in Excel like Firefox, Chrome, Internet Explore 10!

Microsoft Excel's Proper function can change any text to proper cases. Please do as this:

1. In the adjacent blank cell B1, enter this formula: = PROPER (A1), see screenshot:

2. Then press Enter key, select cell B1, and drag the fill handle over the range that you want to contain this formula. And all of the upper case text has been converted to the proper case. See screenshot:

Note: As they are formulas, when you copy and paste them, you need paste them as values.


arrow blue right bubble Change uppercase to proper/title case in Excel with VBA code

1. Active the worksheet that you want to use.

2. Then click Developer > Visual Basic, a new Microsoft Visual Basic for applications window will be displayed (or you can press the shortcut keys Alt + F11 to open the window), then click Insert > Module, and input the following code into the Module:

Sub ProperCase()
'Updateby20131127
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
Rng.Value = Application.WorksheetFunction.Proper(Rng.Value)
Next
End Sub

3. Then click button to run the code, then a dialog is displayed for you to select a range, see screenshot:

4. Click OK and all of the upper case letters have been changed to proper cases.


arrow blue right bubble Change uppercase to proper/title case in Excel with Kutools for Excel

The Change Case tool of Kutools for Excel can help you easily change the text or letters to any kinds of cases. So does the proper/title case in selections.

Kutools for Excel includes more than 120 handy Excel tools. Free to try with no limitation in 30 days. Get it Now.

1. Select the range which you will change uppercases to proper/title cases.

2. Click the Kutools > Text Tools > Change Case…. See screenshot:

3. In Change Case dialog box, check the Proper Case option, and you can preview the results at the Preview Pane. See screenshot:

4. Then click OK or Apply. And all uppercase in the selection are changed to proper/title case.

Note: This utility of Proper Case cannot only change uppercase to title case, but also can change all case in the selection to title case.

Kutools for Excel's Change Case tool can quickly change text case to UPPER, LOWER, PROPER, Sentence Case, and tOGGLE cASE. Click to know more


Related articles:


Kutools for Excel

More than 120 Advanced Functions for Excel 2013, 2010, 2007 and Office 365.

screen shot

btn read more     btn download     btn purchase

Comments  

0#Chetan Sonawane2014-02-01 06:03
I wish to Sort the parameters by certain terms and not by Alphabetically, i.e by either A to Z or Z to A.

Kindly suggest solution.
Reply | Reply with quote | Quote
0#Carmel2014-04-10 20:16
Try turning it into a function as follows. Save in personal app file and then you can use in all workbooks

Public Function SENTENCECASE(Sen As String)
'Sen is the range selected in the brackets of the function as the input cell
On Error Resume Next

xValue = Sen
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

SENTENCECASE = xValue
End Function
Reply | Reply with quote | Quote

Add comment


Security code
Refresh