Jak zastąpić wszystkie znaki w tabeli innymi znakami?
Wiesz to? Dane, które otrzymujesz od partnerów biznesowych lub po imporcie danych zawierają nieprawidłowe znaki. Może się zdarzyć, że kropka dziesiętna pojawi się wszędzie tam, gdzie jest to konieczne. Może się też zdarzyć, że między poszczególnymi cyframi pojawią się ukośniki.
Możesz użyć polecenia REPLACE, aby znaleźć te znaki i zastąpić je innymi znakami. Ale to wymaga dużo wysiłku, jeśli chcesz wykonywać ten proces częściej. Oszczędzasz czas wykonując zadanie za pomocą makra. Możesz szybko i łatwo ponownie wywołać to makro w tej samej sytuacji w przyszłości.
Aby dołączyć makro do pustego skoroszytu, otwórz nowy skoroszyt we wszystkich wersjach programu Excel przy użyciu kombinacji klawiszy CTRL N. Następnie naciśnij kombinację klawiszy ALT F11, aby wywołać edytor VBA. Tam wybierz polecenie WSTAW - MODUŁ. Następnie wprowadź następujące makro:
Zamień znaki podrzędne ()
Przy błędzie Wznów Dalej
Przyciemnij komórkę jako zakres
Dim Search for As String
Dim Zamień na As String
Wyszukaj = "."
Zamień przez = ","
Dla każdej komórki w ActiveSheet.UsedRange
Cell.Value = Application.Substitute (Cell.Value, FindFor, ReplaceBy)
Następna komórka
W przypadku błędu Przejdź do 0
Napis końcowy
Makro zastępuje kropkę dziesiętną kropką dziesiętną we wszystkich komórkach używanych w aktywnym arkuszu. Aby wywołać makro, aktywuj żądany arkusz, naciśnij kombinację klawiszy ALT F8 i wybierz makro WYMIANA ZNAKÓW.
Aby kontrolować, która zawartość jest wyszukiwana i zastępowana, dostosuj w makrze dwie zmienne SUCHENNACH i REPLACE BY.
