Удаление знака переноса строки - из ячеек

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Удаление знака переноса строки - из ячеек (Макросы/Sub)

yl3d

Дата: Пятница, 19.04.2019, 10:54 | Сообщение № 1

Группа: Пользователи

Ранг: Участник

Сообщений: 66

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Всем доброго здоровья.

Помогите мне разобраться с непростым вопросом.
В общем в некоторых ячейках диапазона F6:O8 - имеется такой знак (я не знаю как он называется), который переносит на новую строку.
Этот знак - невидим, он представляет собой что-то вроде пробела - но его функция в том, чтобы создавать новую строку.

Скажите как макросом - удалить этот знак или компоненту - из имеющегося диапазона ?

К сообщению приложен файл: 4380369.xls (29.0 Kb)

Ответить

китин

Дата: Пятница, 19.04.2019, 11:10 | Сообщение № 2

Группа: Модераторы

Ранг: Экселист

Сообщений: 7025

Репутация: 1076 ±

Замечаний: 0% ±

Excel 2007;2010;2016

Здравствуйте. обязательно макрос? м.б. штатными средствами?
Ctrl+F в поле найти курсор. нажимаете ЛЕВЫЙ Alt на цифровой клавиатуре набираете 0160
заменить на ничего . ивсе

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

Ответить

_Boroda_

Дата: Пятница, 19.04.2019, 11:12 | Сообщение № 3

Группа: Админы

Ранг: Местный житель

Сообщений: 16675

Репутация: 6481 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

http://www.excelworld.ru/forum/2-41563-275851-16-1555603933

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

yl3d

Дата: Пятница, 19.04.2019, 12:04 | Сообщение № 4

Группа: Пользователи

Ранг: Участник

Сообщений: 66

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

китин, зашел в поиск, нажал на ЛЕВЫЙ ALT - цифры просто отказались вводится.
Если просто набирать 0160 - поиск ничего не находит.

Так как же макросом осуществить эту замену ?

Ответить

_Boroda_

Дата: Пятница, 19.04.2019, 12:12 | Сообщение № 5

Группа: Админы

Ранг: Местный житель

Сообщений: 16675

Репутация: 6481 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Тьфу, новая строка - это не 0160, а 0010
Контрл h - в Найти Альт 0010, в Заменить - пробел, жмете Заменить все

[vba]

Код

А макросом так
Sub Макрос1()
    Cells.Replace What:= Chr(10), Replacement:=" ", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    Cells.WrapText = False
End Sub

[/vba]