Kā tabulā visas rakstzīmes aizstāt ar citām rakstzīmēm
Vai tu to zini? Dati, kurus saņemat no biznesa partneriem vai pēc datu importēšanas, satur nepareizas rakstzīmes. Var gadīties, ka decimālskaitlis parādās visur, kur nepieciešams. Vai arī var gadīties, ka slīpsvītras parādās starp atsevišķiem cipariem.
Varat izmantot komandu REPLACE, lai atrastu šīs rakstzīmes un aizstātu tās ar citām rakstzīmēm. Bet tas prasa daudz pūļu, ja vēlaties šo procesu veikt biežāk. Jūs ietaupāt laiku, veicot uzdevumu, izmantojot makro. Nākotnē tādā pašā situācijā varat ātri un viegli izsaukt šo makro.
Lai makro iekļautu tukšā darbgrāmatā, atveriet jaunu darbgrāmatu visās Excel versijās, izmantojot taustiņu kombināciju CTRL N. Pēc tam nospiediet taustiņu kombināciju ALT F11, lai atvērtu VBA redaktoru. Tur izvēlieties komandu INSERT - MODULE. Pēc tam ievadiet šādu makro:
Apmainīt apakšrakstzīmes ()
Par kļūdu Atsākt nākamo
Dim šūna kā diapazons
Dim meklēšana kā virkne
Dim Aizstāt ar kā virkni
SearchFor = "."
ReplaceBy = ","
Par katru šūnu ActiveSheet.UsedRange
Cell.Value = Application.Substitute (Cell.Value, FindFor, ReplaceBy)
Nākamā šūna
Kļūda GoTo 0
Beigt apakš
Visās aktīvajā darblapā izmantotajās šūnās makro aizvieto decimālzīmi ar decimālzīmi. Lai izsauktu makro, aktivizējiet vēlamo darblapu, nospiediet taustiņu kombināciju ALT F8 un atlasiet makro CHARACTER EXCHANGE.
Lai kontrolētu, kurš saturs tiek meklēts un aizstāts, makro pielāgojiet divus mainīgos SUCHENNACH un REPLACE BY.