Vahetage Exceli lahtrites märke - VBA makrod

Lang L: none (table-of-contents)

Kuidas asendada tabeli kõik märgid teiste märkidega

Kas sa tead seda? Äripartneritelt või pärast andmete importimist saadud andmed sisaldavad valesid märke. Võib juhtuda, et komakoht ilmub kõikjale, kus seda on vaja. Või võib juhtuda, et üksikute numbrite vahele ilmuvad kaldkriipsud.

Nende märkide leidmiseks ja nende asendamiseks teiste märkidega saate kasutada käsku REPLACE. Kuid see nõuab palju pingutusi, kui soovite seda protsessi sagedamini teha. Kui säästate ülesannet makro abil, säästate aega. Saate seda makro kiiresti uuesti ja hõlpsalt samas olukorras helistada.

Makro lisamiseks tühja töövihikusse avage kõikides Exceli versioonides uus töövihik, kasutades klahvikombinatsiooni CTRL N. Seejärel vajutage klahvikombinatsiooni ALT F11, et avada VBA redaktor. Seal valige käsk INSERT - MODULE. Seejärel sisestage järgmine makro:

Vaheta alammärke ()
Vea korral Jätka järgmist
Dim Cell kui vahemik
Hämardatud otsing stringina
Hämarda Asenda stringiga
SearchFor = "."
ReplaceBy = ","
Iga lahtri kohta ActiveSheet.UsedRange
Cell.Value = Application.Substitute (Cell.Value, FindFor, ReplaceBy)
Järgmine lahter
Viga GoTo 0
End Sub

Makro asendab kümnendkoha komaga kõigis aktiivsel töölehel kasutatud lahtrites. Makro helistamiseks aktiveerige soovitud tööleht, vajutage klahvikombinatsiooni ALT F8 ja valige makro CHARACTER EXCHANGE.

Otsitava ja asendatava sisu juhtimiseks reguleerige makros kahte muutujat SUCHENNACH ja REPLACE BY.

Te aitate arengu ala, jagades leht oma sõpradega

wave wave wave wave wave