A digital transformation requires faster time to market, shorter software development lifecycles, and the ability to adapt rapidly to changing customer demands. DevOps provides the solution.
Sub ZipCoder3() Dim rg As Range Dim col As Long Application.ScreenUpdating = False col = Columns("M").Column Columns(col + 1).Insert Set rg = Range(Cells(2, col), Cells(65536, col).End(xlUp)) rg.NumberFormat = "00000" rg.Offset(0, 1).FormulaR1C1 = "=LEFT(RC[-1],5)" rg.Formula = rg.Offset(0, 1).Value rg.Offset(0, 1).EntireColumn.Delete Application.ScreenUpdating = True End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.