ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Discussion (Misc queries) (https://www.excelbanter.com/excel-discussion-misc-queries/)
-   -   Excel Capital Letters (https://www.excelbanter.com/excel-discussion-misc-queries/55386-excel-capital-letters.html)

Humbertt

Excel Capital Letters
 
I have a large worksheet with many columns, however, all the data is in lower
case letters. Is there a function or a way to change all the data into
capital letters? The data is demographic info only. Thanks inadvance.

Chip Pearson

Excel Capital Letters
 
In an adjacent column, enter the formula

=UPPER(A1)

and copy down as far as you need to go. You can the copy and
paste this data over your original data if desired.


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com



"Humbertt" wrote in message
...
I have a large worksheet with many columns, however, all the
data is in lower
case letters. Is there a function or a way to change all the
data into
capital letters? The data is demographic info only. Thanks
inadvance.




David McRitchie

Excel Capital Letters
 
H Humbert,
I expect you want to change those areas, probably whole columns at a time,
or other regions, in place. see
http://www.mvps.org/dmcritchie/excel/proper.htm
---
HTH,
David McRitchie, Microsoft MVP - Excel [site changed Nov. 2001]
My Excel Pages: http://www.mvps.org/dmcritchie/excel/excel.htm
Search Page: http://www.mvps.org/dmcritchie/excel/search.htm

"Humbertt" wrote in message ...
I have a large worksheet with many columns, however, all the data is in lower
case letters. Is there a function or a way to change all the data into
capital letters? The data is demographic info only. Thanks inadvance.




PlayingToAudienceOfOne

Excel Capital Letters
 
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


"Humbertt" wrote:

I have a large worksheet with many columns, however, all the data is in lower
case letters. Is there a function or a way to change all the data into
capital letters? The data is demographic info only. Thanks inadvance.



All times are GMT +1. The time now is 07:04 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com