Erstatte _%tal% med ingenting

Du kan fx bruge denne makro:

Sub FjernSidste()
    For Each c In ActiveSheet.Range("a1:a3").Cells
        a = InStrRev(c.Value, "_")
        c.Value = Mid(c.Value, 1, a - 1)
    Next c
End Sub

Ret Range til det område, som indeholder din liste. Koden vi dog fejl, hvis der er celler som IKKE indeholder en understregning.

jeg får den fejl her:

run time error 5
invalid procedure call or argument

og når jeg så trykker debug lyser det her gult
  c.Value = Mid(c.Value, 1, a - 1)

Koden ser sådan her ud

Sub FjernSidste()
    For Each c In ActiveSheet.Range("a1:a2371").Cells
        a = InStrRev(c.Value, "_")
        c.Value = Mid(c.Value, 1, a - 1)
    Next c
End Sub

Min fejl det var en der bare hed 10 og ikke andet så skrev jeg 10_564654 så virkede det takker 10000 gange :D

Velbekomme