Free for PREMIUM members
With Office 365, it’s your data and your responsibility to protect it. NEW Veeam Backup for Microsoft Office 365 eliminates the risk of losing access to your Office 365 data.
' What I need is VBA that will go through the whole column
' and if it begins with an A, strip it off, then do the mid function.
' =mid(A2, 2, 5)
Public Sub DeletePrefix()
For Each i In Sheets("sheet1").Range("A:A") ' entire 1st column independent of max rows
If Mid(i.Value, 1, 1) = "A" Then
i.Value = Mid(i.Value, 2, 5) 'NOTE: remove last argument to preserve all but the first character
Open in new window
We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!