Cum se înlocuiesc toate caracterele dintr-un tabel cu alte caractere
Știi că? Datele pe care le primiți de la partenerii de afaceri sau după importul de date conțin caractere incorecte. Se poate întâmpla ca un punct zecimal să apară oriunde este necesar un punct zecimal. Sau se poate întâmpla ca barele să apară între cifre individuale.
Puteți utiliza comanda REPLACE pentru a găsi aceste caractere și a le înlocui cu alte caractere. Dar este nevoie de mult efort dacă doriți să faceți acest proces mai des. Economisiți timp efectuând sarcina folosind o macro. Puteți apela din nou această macro rapid și ușor în aceeași situație în viitor.
Pentru a include macro-ul într-un registru de lucru gol, deschideți un nou registru de lucru în toate versiunile de Excel utilizând combinația de taste CTRL N. Apoi apăsați combinația de taste ALT F11 pentru a afișa editorul VBA. Acolo selectați comanda INSERT - MODULE. Apoi introduceți următoarea macro:
Swap Sub caractere ()
La eroare Reluați în continuare
Dim Cell As Range
Afișează căutarea ca șir
Dim Înlocuiește cu As String
SearchFor = "."
ReplaceBy = ","
Pentru fiecare celulă din ActiveSheet.UsedRange
Cell.Value = Application.Substitute (Cell.Value, FindFor, ReplaceBy)
Următoarea celulă
La eroare GoTo 0
Sfârșitul Sub
Macro înlocuiește punctul zecimal cu un punct zecimal în toate celulele utilizate în foaia de lucru activă. Pentru a apela macro, activați foaia de lucru dorită, apăsați combinația de taste ALT F8 și selectați macro SCHIMB CARACTER.
Pentru a controla ce conținut este căutat și înlocuit, reglați cele două variabile SUCHENNACH și REPLACE BY în macro.
