Excel, laatste symbool in vel verwijderen

Pagina: 1
Acties:
  • 663 views sinds 30-01-2008
  • Reageer

  • Zerveza
  • Registratie: Maart 2001
  • Laatst online: 17-12-2021

Zerveza

DoS porfavor

Topicstarter
Ik heb een sheet waarin alle velden verschillende soorten gegegevens staan. Als laatste symbool staat overal een vierkantje.. behoorlijk irri, is er een formule of filter waarmee ik alle gegevens uit mijn sheet naar een nieuwe sheet kan kopieren waarbij het laatste teken van ieder veld word weg gelaten?

  • F_J_K
  • Registratie: Juni 2001
  • Niet online

F_J_K

Moderator CSA/PB/AI

Front verplichte underscores

Simpel: zoek en vervang het karakter ( :+ )

Iets lastiger is dit misschien een optie:
code:
1
2
3
4
5
6
7
On Error Resume Next
For kolom = 1 To 10
    For rij = 1 To 10
        Cells(rij, kolom).Value = Left(Cells(rij, kolom).Value, _
Len(Cells(rij, kolom)) - 1)
    Next rij
Next kolom

en dan natuurlijk aanpassen naar keuze. Dit haalt van alle cellen an A1 t/m J10 het laatste karakter weg :)

[ Voor 1% gewijzigd door F_J_K op 03-09-2003 16:23 . Reden: layout verbeterd ]

'Multiple exclamation marks,' he went on, shaking his head, 'are a sure sign of a diseased mind' (Terry Pratchett, Eric)