Страницы: 1
RSS
лишние символы
 
подскажите как избавиться от лишних символов (пример ниже).    
Имею ввиду квадраты в строке наименований, которые видимо означают символ ENTER, т.е. переносят остаток строки на новую строку. если через формат ячеек убрать галку "переносить по словам" во вкладке "выравнивание", то вид вроде бы улучшается, но квадраты остаются. И в дальнейшем при редактировании опять переносят текст на нов строку. Получается корявый список. Собсно вопрос в том чтоб убрать их вообще и поставить пробел.    
сам вижу что не совсем понятно объяснил, в примере более наглядно все показано.
 
Выполните такой макрос:  
 
Sub ЗаменаКвадратиков()  
   ActiveSheet.UsedRange.Replace vbCrLf, " "  
   ActiveSheet.UsedRange.Replace vbLf, " "  
   ActiveSheet.UsedRange.Replace vbCr, " "  
End Sub  
 
 
Если надо заменить на всех листах - тогда так:  
 
Sub ЗаменаКвадратиковНаВсехЛистах()  
   Dim sh As Worksheet: Application.ScreenUpdating = False  
   For Each sh In ThisWorkbook.Worksheets  
       sh.UsedRange.Replace vbCrLf, " "  
       sh.UsedRange.Replace vbLf, " "  
       sh.UsedRange.Replace vbCr, " "  
   Next sh  
End Sub
 
Спасибо за оперативность, помогло!
Страницы: 1
Читают тему
Наверх
Loading...