Kaip pakeisti visus lentelės simbolius kitais simboliais
Ar tu tai žinai? Duomenyse, kuriuos gaunate iš verslo partnerių arba po duomenų importavimo, yra neteisingų simbolių. Gali atsitikti taip, kad dešimtainis taškas atsiranda visur, kur reikia. Arba gali atsitikti taip, kad tarp atskirų skaitmenų atsiranda brūkšniai.
Galite naudoti komandą REPLACE, kad surastumėte šiuos simbolius ir pakeistumėte juos kitais simboliais. Tačiau norint tai padaryti dažniau, reikia daug pastangų. Sutaupysite laiko atlikdami užduotį naudodami makrokomandą. Šią makrokomandą galite greitai ir lengvai vėl paskambinti toje pačioje situacijoje ateityje.
Norėdami įtraukti makrokomandą į tuščią darbaknygę, atidarykite naują darbaknygę visose „Excel“ versijose naudodami klavišų kombinaciją CTRL N. Tada paspauskite klavišų kombinaciją ALT F11, kad būtų parodytas VBA redaktorius. Ten pasirinkite komandą INSERT - MODULE. Tada įveskite šią makrokomandą:
Keisti antrinius simbolius ()
Dėl klaidos Tęsti toliau
„Dim Cell“ kaip diapazonas
„Dim“ paieška kaip eilutė
Blankus Pakeiskite kaip eilutė
SearchFor = "."
ReplaceBy = ","
Kiekvienai langai ActiveSheet.UsedRange
Cell.Value = Application.Substitute (Cell.Value, FindFor, ReplaceBy)
Kitas langelis
Klaida „GoTo 0“
Pabaiga Sub
Makrokomanda pakeičia dešimtainį tašką dešimtainiu tašku visose ląstelėse, naudojamose aktyviame darbalapyje. Norėdami iškviesti makrokomandą, suaktyvinkite norimą darbalapį, paspauskite klavišų kombinaciją ALT F8 ir pasirinkite makrokomandą CHARACTER EXCHANGE.
Norėdami valdyti, kokio turinio ieškoma ir pakeičiama, koreguokite du makrokomandos kintamuosius SUCHENNACH ir REPLACE BY.
