03. maj 2007 - 14:47Der er
15 kommentarer og 1 løsning
lav makro der søger og erstatter tekst i kollonne F.
Hej har et lille problem Jeg skal ave lavet en makro i excel der kan søge på hele ord med og uden 'ord' omkranset og de ord der skal erstattes skal erstattes med ingenting, altså skal ordet i princippet bare slettes, er der nogen der kan give mig en hurtig løsning? der står mange linjer i hvert felt, og ved at den alm. search and find kun tager 256 karakterer af gangen, PLEASE
altså find alle 'ttt' og slet alle 'ttt' find alle ttt og slet alle ttt
For Each c In Selection c.Value = Application.WorksheetFunction.Substitute(c.Value, UCase(x), "") c.Value = Application.WorksheetFunction.Substitute(c.Value, LCase(x), "") Next
TAK, det virker, dog er jeg nød til at markerer de enkelte celler der er tale om for ellers står den bare og bliver ved med at kører. kan det laves som en funktion hvor man kan have et selvvalgt "erstatnings" ord? kan du lave det? vil gerne give flere point, bare skriv
koden virker på de seller du markerer inden du starter den
Med denne kan du vælge erstatningsord når koden kører:
Sub Udskift() x = InputBox("Indtast søgeord : ") y = InputBox("Indtast erstatningsord : ") For Each c In Selection c.Value = Application.WorksheetFunction.Substitute(c.Value, UCase(x), y) c.Value = Application.WorksheetFunction.Substitute(c.Value, LCase(x), y) Next End Sub
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
