exclude lowercase letter

[sksanjeev786]

Hi Team

I want to exclude lower case letter from the below data where ever i have lowercase letter i need only data for that cell
Via Formula

Data.xlsx
	F	G	H
103	4	24	45 A
104	14	19	45 A
105	93	-3	7 A
106	68	1	-2
107	82	-8	5 A
108	82	1	11 a
109	80	1	11 a
110	73	-5	11 A
111	80	-6	10 A
112	80	-3	14 A
113	75	-8	2
114	80	-2	11 A
115	56	100	100
116
117	75	-3	9 a
118	71	-5	10 A
119	70	-3	1
120	73	-10	0
121	66	1	11
122	30	1	12
123	34	-7	4
124	56	100	100
1 (2)

 

[Scott Huish]

What are you trying to do exactly? You said you wanted to exclude it then you said you wanted data for the cell if you had it. Are you wanting to duplicate the value in Column H or what exactly?

 

[sksanjeev786]

What are you trying to do exactly? You said you wanted to exclude it then you said you wanted data for the cell if you had it. Are you wanting to duplicate the value in Column H or what exactly?

Hi,

I would like to remove all lower case from that column ie. need to remove "a" from H column

 

[Wishmaster40]

=EXACT(H1;LOWER(H1)) This gives you if the cell H1 has a lower case and then filter on it.

 

[sksanjeev786]

=EXACT(H1;LOWER(H1)) This gives you if the cell H1 has a lower case and then filter on it.

I need the existing number only need to remove all the lowercase letter from the existing table

 

[Joe4]

What would be far more helpful in this question and your other question would be to show us 2 images:
1. A sample of what your current data looks like
2. What your expected result of that data sample should look like when it is complete
(show us what you WANT to see instead of leave it up to chance with an unclear explanation)

 

[Scott Huish]

Try this macro:

Sub RemoveLowerLetter()
Dim c As Range, s As String
Application.ScreenUpdating = False
For Each c In Range("H1:H" & Range("H" & Rows.Count).End(xlUp).Row)
    s = Right(c.Text, 1)
    If s <> "" Then If Asc(s) > 96 And Asc(s) < 123 Then c = Trim(Left(c, Len(c) - 1))
Next
Range("H:H").NumberFormat = "General"
Application.ScreenUpdating = True
End Sub