Upper case to Lower case

  • Thread starter Thread starter Fergal
  • Start date Start date
F

Fergal

Is it possible to change an entire column, so that any upper case letters
are changed to lower case? Or do they all need to be changed individually?
Thanks for any replies.
 
You can put this formula in a helper column:

=LOWER(A1)

and then copy down as far as required.

Fix the values by highlighting the cells with the formula in and
<copy>, then Edit | Paste Special | Values (check) | OK then <Esc>.
Then you can copy the values to overwrite the originals in column A,
then delete the helper column.

Hope this helps.

Pete
 
Fergal,

Right click your sheet tab, view code and paste the code below in. Change
MyColumn to the desired column and then run the code.

Sub Marine()
Dim MyRange
Dim MyColumn As String
MyColumn = "A" 'Change to suit
lastrow = Cells(Cells.Rows.Count, MyColumn).End(xlUp).Row
Set MyRange = Range(MyColumn & "1:" & MyColumn & lastrow)
For Each c In MyRange
If Not c.HasFormula Then
c.Value = UCase(c.Value)
End If
Next
End Sub

Mike
 
OOPS,

wrong way around you wanted lower case.

Sub Marine()
Dim MyRange
Dim MyColumn As String
MyColumn = "A" 'Change to suit
lastrow = Cells(Cells.Rows.Count, MyColumn).End(xlUp).Row
Set MyRange = Range(MyColumn & "1:" & MyColumn & lastrow)
For Each c In MyRange
If Not c.HasFormula Then
c.Value = LCase(c.Value)
End If
Next
End Sub

Mike
 
assuing the your uppercase data are in col A
highlight B2 downward to where your data end
go to the formula bar
type =lower(A2) (if you want all letters to be lowercase), otherwise
type =proper(A2) (if you want the first letter to be a captial letter)
Ctrl and Enter
--
Hope this is helpful

Pls click the Yes button below if this post provide answer you have asked

Thank You

cheers, francis

Am not a greek but an ordinary user trying to assist another
 
Back
Top