Как да замените всички знаци в таблица с други знаци
Знаеш ли това? Данните, които получавате от бизнес партньори или след импортирането на данни, съдържат неправилни знаци. Може да се случи, че десетична точка се появява навсякъде, където е необходима десетична точка. Или може да се случи, че между отделните цифри се появяват наклонени черти.
Можете да използвате командата REPLACE, за да намерите тези знаци и да ги замените с други знаци. Но са необходими много усилия, ако искате да правите този процес по -често. Спестявате време, като изпълнявате задачата с помощта на макрос. Можете да извикате този макрос отново бързо и лесно в същата ситуация в бъдеще.
За да включите макроса в празна работна книга, отворете нова работна книга във всички версии на Excel, като използвате комбинацията от клавиши CTRL N. След това натиснете комбинацията от клавиши ALT F11, за да изведете редактора на VBA. Там изберете командата INSERT - MODULE. След това въведете следния макрос:
Размени подсимволи ()
На грешка Възобновяване Следващо
Dim Cell As Range
Dim Търсене на As String
Dim Заменете с As String
SearchFor = "."
ReplaceBy = ","
За всяка клетка в ActiveSheet.UsedRange
Cell.Value = Application.Substitute (Cell.Value, FindFor, ReplaceBy)
Следващата клетка
При грешка GoTo 0
End Sub
Макросът заменя десетичната запетая с десетична запетая във всички клетки, използвани в активния работен лист. За да извикате макроса, активирайте желания работен лист, натиснете клавишната комбинация ALT F8 и изберете макроса ОБМЕН НА ХАРАКТЕРИ.
За да контролирате кое съдържание да се търси и замества, коригирайте двете променливи SUCHENNACH и REPLACE BY в макроса.
