Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Sub ExtYear()
- Dim i, sh As Long
- sh = .Cells(Rows.Count, "A").End(xlUp).Row
- For i = 1 To sh
- Cells(i, "B").Value = Split(Cells(i, "A").Value, "_")(UBound(Split(Cells(i, "A").Value, "_")))
- Next i
- End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement