Convert font to lower case

[Guest]

I have a large spreadsheet which I am using as merge data for a letter. Some
of the data is in all caps. How can I convert this to lower case?

 

[Anne Troy]

Many ways, Teri. Choose your poison:
http://www.officearticles.com/excel/change_the_case_of_text_in_cells_in_microsoft_excel.htm
*******************
~Anne Troy

www.OfficeArticles.com

 

[Guest]

Teri,

Do you want everything on the source data W/S to be imported in lower case
or just certain columns?

Dennis

 

[Morrigan]

Make a helper column or a help spreadsheet and use LOWER() function.
Just copy and paste value after to replace original.

 

[Guest]

Hi,

Say data is in A1.
In B1, use the LOWER( ) function: =LOWER(A1)

To convert to uppercase, use the UPPER function and to convert to Propercase
(1st letter of each word uppercase and the rest lowercase) use the PROPER()
function

 

[Guest]

Hey Dennis,

Actually, it's all of the columns. Some of the data is in all UPPERCASE,
some is not. I want it to be consistent.

Thanks for your reply!

 

[Guest]

I dump the data into Word. Then select all text and click on Format - Change
Case. Then I dump it back to excel.

 

[Guest]

Teri,

If you can use VBA (Macros)

Try this.

It will find all "Constants" (Data not formulas) on your active worksheet.
and "automatically" change all to lowercase.

No formulas of extra columns!

Be sure to save your worksheet before using it in case you do not prefer the
results!

Sub LowerCase()
Dim myRange As Range, myCell As Range
Set myRange = ActiveSheet.UsedRange.SpecialCells _(xlCellTypeConstants, 23)
On Error Resume Next
For Each myCell In myRange
myCell.Formula = LCase(myCell.Formula)
Next
MsgBox "Process Completed! Press OK to Continue"

End Sub




HTH Dennis

 

[nowfal]

Hi,
If suppose one particular cell always to be in upper case what to
do.
with regards
nowfal

 

[Anne Troy]

Hi, Sebastien!
*******************
~Anne Troy

www.OfficeArticles.com

 

[Guest]

Copy the following macro:

Sub Change_Case()
Dim ocell As Range
Dim Ans As String
Ans = Application.InputBox("Type in Letter" & vbCr & _
"(L)owercase, (U)ppercase, (S)entence, (T)itles ")
If Ans = "" Then Exit Sub
For Each ocell In Selection.SpecialCells(xlCellTypeConstants, 2)
Select Case UCase(Ans)
Case "L": ocell = LCase(ocell.Text)
Case "U": ocell = UCase(ocell.Text)
Case "S": ocell = UCase(Left(ocell.Text, 1)) & _
LCase(Right(ocell.Text, Len(ocell.Text) - 1))
Case "T": ocell = Application.WorksheetFunction.Proper(ocell.Text)
End Select
Next

End Sub

 

[Bharat]

This actually is very easy way to do it. Thanks Mike, it really made my work
easier