VBA to Remove 2nd & 3rd Characters from a Range of Cells

John_Day83,

You did not say what column, and starting cell your data is in.

You could adjust the BOLD code in the macro to suit your requirements.

If you have a lot of data, I could re-write the macro to use arrays in memory that would be extremely fast. But, I will need the column and starting cell information.


Please TEST this FIRST in a COPY of your workbook (always make a backup copy before trying new code, you never know what you might lose).

1. Copy the below code, by highlighting the code and pressing the keys CTRL + C
2. Open your workbook
3. Press the keys ALT + F11 to open the Visual Basic Editor
4. Press the keys ALT + I to activate the Insert menu
5. Press M to insert a Standard Module
6. Where the cursor is flashing, paste the code by pressing the keys CTRL + V
7. Press the keys ALT + Q to exit the Editor, and return to Excel
8. To run the macro from Excel, open the workbook, and press ALT + F8 to display the Run Macro Dialog. Double Click the macro's name to Run it.

Option Explicit
Sub Remove2nd3rdDoubleZero()
' stanleydgromjr, 02/09/2013
' http://www.excelforum.com/excel-programming-vba-macros/898734-vba-to-remove-2nd-and-3rd-characters-from-a-range-of-cells.html
Dim c As Range
For Each c In Range("A1", Range("A" & Rows.Count).End(xlUp))
  If Mid(c, 2, 2) = "00" Then
    c = Left(c, 1) & Right(c, Len(c) - 3)
  End If
Next c
End Sub

Before you use the macro with Excel 2007 or newer, save your workbook, Save As, a macro enabled workbook with the file extension .xlsm


Then run the Remove2nd3rdDoubleZero macro.

John_Day83,

This version of the macro is very fast.

You did not say what column, and starting cell your data is in.

You could adjust the BOLD code in the macro to suit your requirements.


Please TEST this FIRST in a COPY of your workbook (always make a backup copy before trying new code, you never know what you might lose).

Option Explicit
Sub Remove2nd3rdDoubleZeroV2()
' stanleydgromjr, 02/09/2013
' http://www.excelforum.com/excel-programming-vba-macros/898734-vba-to-remove-2nd-and-3rd-characters-from-a-range-of-cells.html
Dim a As Variant, r As Long, lr As Long
lr = Cells(Rows.Count, "A").End(xlUp).Row
a = Range("A1:A" & lr).Value
For r = LBound(a, 1) To UBound(a, 1)
  If Mid(a(r, 1), 2, 2) = "00" Then a(r, 1) = Left(a(r, 1), 1) & Right(a(r, 1), Len(a(r, 1)) - 3)
Next r
Range("A1").Resize(UBound(a, 1)) = a
End Sub

Before you use the macro with Excel 2007 or newer, save your workbook, Save As, a macro enabled workbook with the file extension .xlsm


Then run the Remove2nd3rdDoubleZeroV2 macro.

John_Day83,

Thanks for the feedback.

You are very welcome. Glad I could help.

Come back anytime.