How remove the Last 5 character throu VBA

[AT BABU]

Hi Folks

I need small macros removeing Last 5 character of the Word

In Exp: AT_1833 I need AT only. Removring _1833

 

[Special-K99]

var2=LEFT( var1, LEN(var1) - 5 )

where var1 is the input variable and var2 is the result.

 

[AT BABU]

I need VBA Code

 

[Special-K99]

That is VBA code
But you need to explain more than just "removing the last 5 character of the word"

For example where does the data start?
Where does it end?
Is it a UDF you want or a full macro?

 

[AT BABU]

EX:

AT_1833
BT_1693
ST_1733
I need remove the "_1833","_1693"and "_1733" these number Removeing. I want AT, BT and ST only I want full macro

 

[kweaver]

If your initial data is in column A with A1 being a header and you want the result in column B (starting in B2), try:

Sub RemoveLast5()
Dim lr As Long
lr = Cells(Rows.Count, "A").End(xlUp).Row
For i = 2 To lr
 Cells(i, 2) = Left(Cells(i, 1), Len(Cells(i, 1)) - 5)
Next i
End Sub

 

[AT BABU]

Thank You For your your reply. I little confused for this code

Thank you Once again !!

 

[AT BABU]

Thank You For your your reply.

 

[jolivanes]

Both not dependent on amount of digits before/after underscore.

Sub Maybe_A()
    With Range("B2:B" & Cells(Rows.Count, 1).End(xlUp).Row)
        .Formula = "=LEFT(RC[-1],FIND(""_"",RC[-1])-1)"
        .Value = .Value
    End With
End Sub

Sub Maybe_B()
Dim i As Long
    For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
        Cells(i, 2).Value = Trim(Split(Cells(i, 1), "_")(0))
    Next i
End Sub

 

[AT BABU]

Thank you