slette 5 ciffer i kolonne A

Kan alle andre tal end fire forekomme som sidste ciffer, eller er der kun et, der afviger?

Der er en lille bug, med at den spørger efter sidste tal 2 gange, men det er sengetid:

Sub test()
Dim Talrække, SLUT As Long, I As Long
ReDim Rettede(0)
SLUT = Range("A65536").End(xlUp).Row

Talrække = Range("A1:A" & SLUT)

For I = 1 To UBound(Talrække)
    If Right(Talrække(I, 1), 1) <> 4 Then
       
        Skip = False
        For Z = 1 To UBound(Rettede)
            If Right(Talrække(I, 1), 1) = Rettede(Z) And Rettede(Z) <> "" Then
                Skip = True
            End If
        Next
        If Skip = False Then
                GlValue = Talrække(I, 1)
                NyValue = InputBox("Indsæt erstatningstal for " & Talrække(I, 1), Title, Default)
                ReDim Preserve Rettede(UBound(Rettede) + 1)
                Rettede(UBound(Rettede)) = NyValue
            For Y = I To UBound(Talrække)
                If Talrække(Y, 1) = GlValue Then Talrække(Y, 1) = NyValue
            Next
        End If
    End If
    Next
Range("A1:A" & SLUT) = Talrække
End Sub

Sub test()
Dim Talrække, SLUT As Long, I As Long
ReDim Rettede(0)
SLUT = Range("A65536").End(xlUp).Row

Talrække = Range("A1:A" & SLUT)

For I = 1 To UBound(Talrække)
    If Right(Talrække(I, 1), 1) <> 4 And Len(Talrække(I, 1)) = 5 Then
        Skip = False
        For Z = 1 To UBound(Rettede)
            If Right(Talrække(I, 1), 1) = Rettede(Z) And Rettede(Z) <> "" Then
                Skip = True
            End If
        Next
        If Skip = False Then
                GlValue = Talrække(I, 1)
                NyValue = InputBox("Indsæt erstatningstal for " & Talrække(I, 1), Title, Default)
                ReDim Preserve Rettede(UBound(Rettede) + 1)
                Rettede(UBound(Rettede)) = NyValue
            For Y = I To UBound(Talrække)
                If Talrække(Y, 1) = GlValue Then Talrække(Y, 1) = NyValue
            Next
        End If
    Else
        Talrække(I, 1) = Left(Talrække(I, 1), 4)
    End If
Next
Range("A1:A" & SLUT) = Talrække
End Sub

Den virker fortæffeligt.
Lige som jeg havde i tankerne....I første huk.

Jeg takker mange gange.

Har du et svar til mig.

Du er da vist ikke helt rusten i vba, som du skrev i det sidste spørgsmål du hjalp mig med. :-)

Det tager simpelthen for lang tid at lave for mig, og jeg kan ikke huske syntaksen jeg skal bruge.

Ja, det kan jeg selvfølgelig ikke se, men det virker :-)

Takker for point.

Måske er jeg for skeptisk, men når det skal tage over 1½ time for den kode, synes jeg det går for sløvt. En gang imellem hvis jeg starter på en kode samtidig som bak eller kabbak, er jeg ikke engang halvvejs, når de er færdige - og det er når jeg er skarp. Hatten af for det.