Convert font to lower case

  • Thread starter Thread starter Guest
  • Start date Start date
G

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?
 
Teri,

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

Dennis
 
Make a helper column or a help spreadsheet and use LOWER() function.
Just copy and paste value after to replace original.
 
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
 
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!
 
I dump the data into Word. Then select all text and click on Format - Change
Case. Then I dump it back to excel.
 
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
 
Hi,
If suppose one particular cell always to be in upper case what to
do.
with regards
nowfal
 
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
 
Back
Top