Ændre et tal i en talrække

Et styk makro kan leveres, hvis det er ønskeligt.

VENSTRE(A2;5)&6&HØJRE(A2;6)

Alternativt at søge efter 13 og erstat med 16.

erstat #2 med 4 (ikke 6) og #3 med 14 og ikke 16 - beklager

eller
Const startRæk = 1
Const erstatMed = 4
Dim antalRæk As Integer, ræk As Integer
Dim leftPart As String, rightPart As String
Public Sub ErstatTal()
    antalRæk = ActiveCell.SpecialCells(xlLastCell).Row
   
    For ræk = startRæk To antalRæk
        Range("A" & ræk).Select
        leftPart = Left(Selection, 5)
        rightPart = Right(Selection, 6)
        Selection = leftPart & erstatMed & rightPart
    Next ræk
End Sub