Tip: Other languages are Google-Translated. You can visit the English version of this link.
Log in
x
or
x
x
Register
x

or

How to convert all caps to only first cap in selected range in Excel?

Supposing you got a worksheet with all names are capitalized in a list, how to convert them to only first letter of each word are capitalized? This article provides you three methods to deal with this problem.

Convert all caps to only first letter of each word cap with formula

Convert all caps to only first letter of each word cap with VBA code

Convert all caps to only first letter of each word cap with Kutools for Excel


Easily change case of texts in selected range in Excel

Kutools for Excel's Change Case utility helps you easily change case of texts in selected range in Excel.


arrow blue right bubbleConvert all caps to only first cap with formula


You can convert all caps to only first cap in a list with formula. Please do as follows.

1. Select a blank cell (says cell C2) for locating the converted result, and enter formula =PROPER(B2) into the formula bar, and then press the Enter key.

You can see the capitalized name is converted to proper case (first cap) immediately in the help column.

2. Keep selecting the cell C2, drag the Fill Handle down to the list until it reaches the cell you need to convert the name case.

Note: In the formula, please change the cell reference based on your list.


arrow blue right bubbleConvert all caps to only first cap with VBA code

Besides, you can run the following VBA code to convert all capitalized names to only first cap in a list.

1. Press Alt + F11 keys simultaneously to open the Microsoft Visual Basic for Application window.

2. In the Microsoft Visual Basic for Application window, click Insert > Module, and then copy and paste below VBA code into the Module window.

VBA code: Convert all caps to only first cap

Sub Proper_Case()
	Dim xRg As Range
	Dim xCell As Range
	Dim xAddress As String
	Dim xUpdate As Boolean
	On Error Resume Next
	xAddress                    = Application.ActiveWindow.RangeSelection.Address
	Set xRg                     = Application.InputBox("Please select a range", "Kutools for Excel", xAddress, , , , , 8)
	Set xRg                     = Application.Intersect(xRg, ActiveSheet.UsedRange)
	If xRg Is Nothing Then Exit Sub
		xUpdate                    = Application.ScreenUpdating
		Application.ScreenUpdating = False
		For Each xCell In xRg.Cells
			If xCell.HasFormula = False Then
				xCell.Value = Application.WorksheetFunction.Proper(xCell.Value)
			End If
		Next
		Application.ScreenUpdating = xUpdate
	End Sub

3. Click the F5 key or click the Run button to run this code. In the popping up Kutools for Excel dialog box, select the range you want to convert all caps to only first cap, and then click the OK button.

Then all capitalized names in selected range are converted to only first capital names immediately.


arrow blue right bubbleConvert all caps to only first cap with Kutools for Excel

This section shows you the Change Case utility of Kutools for Excel to easily convert all caps to only first cap with several clicks.

Kutools for Excel : with more than 300 handy Excel add-ins, free to try with no limitation in 60 days. 

1. Select the list you need to convert the case, and then click Kutools > Text > Change Case. See screenshot:

2. In the Change Case dialog box, please select the Proper Case option, and then click the OK button.

Then all capitalized names in selected list are converted to proper case at once.

If this utility is helpful, you can download and try the free trial now!

Recommended Productivity Tools for Excel

kte tab 201905

Kutools for Excel Helps You Always Finish Work Ahead of Time, and Stand Out From Crowd

  • More than 300 powerful advanced features, designed for 1500 work scenarios, increasing productivity by 70%, give you more time to take care of family and enjoy life.
  • No longer need memorizing formulas and VBA codes, give your brain a rest from now on.
  • Become an Excel expert in 3 minutes, Complicated and repeated operations can be done in seconds, 
  • Reduce thousands of keyboard & mouse operations every day, say goodbye to occupational diseases now.
  • 110,000 highly effective people and 300+ world-renowned companies' choice.
  • 60-day full features free trial. 60-day money back guarantees. 2 years of free upgrade and support.

Brings Tabbed Browsing and Editing to Microsoft Office, Far More Powerful Than The Browser's Tabs

  • Office Tab is designed for Word, Excel, PowerPoint and Other Office Applications: Publisher, Access, Visio and Project.
  • Open and create multiple documents in new tabs of the same window, rather than in new windows.
  • Increases your productivity by 50%, and reduces hundreds of mouse clicks for you every day!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.