Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1 2 След.
RSS
Как удалить значки переноса в ячейке
 
#1
05.08.2010 14:13:34
Добрый день. Возник вопрос - есть большая таблица в кучей данных.  В некоторых ячейках текст представлен в виде нескольких строк, как если бы его вводили вручную через Alt+Enter. Подскажите, как убрать эти знаки переноса, либо заменить их на пробелы?  
Ячейки заранее неизвестны. Я бы через Заменить сделала, но не знаю, как в экселе обозначить знак переноса.  
 
Переносить в Ворд, чистить там, а потом обратно в Эксель - не вариант.  
Спасибо.
 
 
 
#2
05.08.2010 14:28:13
{quote}{login=Светлана В}{date=05.08.2010 02:13}{thema=Как удалить значки переноса в ячейке}{post}...как если бы его вводили вручную через Alt+Enter...{/post}{/quote}  
А точнее? Вариантов море: найти-заменить, подставить (знать код знака), удалить ненужное - печсимв, сжать пробелы, trim и т.п.  
Z.
 
 
 
#3
05.08.2010 14:29:06
Не уверен за правильность ответа, но можно попробовать знак переноса (абзаца) скопировать в поле "Заменить:", а в поле "Заменть на:" ставим пробел или оставлеям пусто.
 
 
 
#4
05.08.2010 14:35:18
Попробовать-то можно, но как именно выглядит этот знак? Пробовала из форда вставлять - не понимает его эксель.  
Короче, не стала мучаться, быстренько сделала коротенький макрос  
 
Sub Удалить_переносы()  
 
   Cells.Replace What:=Chr(10), Replacement:="", LookAt:=xlPart, SearchOrder _  
       :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False  
End Sub
 
 
 
#5
05.08.2010 14:42:47
Цитата: "Пробовала из форда вставлять - не понимает его эксель". А если наоборот: берем в XL, вставляем в Word, выделяем, жмем (если не ошибся) "Alt+X" - получаем код. Далее в XL, к примеру, "=СИМВОЛ(160)"...  
Z.
 
 
 
#6
05.08.2010 14:45:02
{quote}{login=The_Prist}{date=05.08.2010 02:41}{thema=Re: Re: Re: Как удалить значки переноса в ячейке}{post}Не знаю Вы ли задавали вопрос, но ответил здесь:  
http://excel-vba.ru/forum/viewtopic.php?t=377{/post}{/quote}  
Вы не поверите, но это была не я)))))  
Но спасибо, этот способ намного удобнее, чем мой кривенький макрос)
 
 
 
#7
06.08.2010 08:15:37
Как вариант формула =ПЕЧСИМВ() далее по потребностям....
 
 
 
#8
06.08.2010 10:57:55
было бы пару столбцов в иходнике - без вопросов))) но в данном случае строк и столбцов - куча))) данные идут с разных регионов, каждые в меру способностей изгаляются с форматированием)
 
 
 
#9
06.08.2010 11:17:45
абзац СИМВОЛ(182)  
мягкий перенос СИМВОЛ(172)  
неразрывный пробел СИМВОЛ(160)  
Наверное, их надо найти и заменить на пробел СИМВОЛ(32)
 
 
 
#10
06.08.2010 11:23:22
{quote}{login=Светлана В}{date=06.08.2010 10:57}{thema=Re: }{post}... но в данном случае строк и столбцов - куча))) данные идут с разных регионов, каждые в меру способностей изгаляются с форматированием){/post}{/quote}  
Не надо жалеть места на диске - всегда в таких случаях пресоздаю файл на основе таких опусов. За одно избавляюсь от кучи сопутствующих проблем...
 
 
 
#11
14.04.2011 15:03:06
Супер !!!! Макрос работает. 5 сек и все готово
 
 
 
#12
14.04.2011 15:12:48
как приятно, когда мои кривоватые куски кода кому-то помогают))
 
 
 
#13
14.04.2011 16:37:49
Может кому-нибудь пригодится и вариант без макроса: чтобы после Ctrl-F ввести в поле "Найти" знак перевода строки, нужно нажать Ctrl-J  
Остается только очистить поле "Заменить на" и нажать кнопку "Заменить все".
 
 
 
#14
14.04.2011 17:24:45
Наверное, "очепятка" - не Ctrl+J, а Ctrl+H ? Или я чего-то не знаю?
С уважением, Алексей (ИМХО: Excel-2003 - THE BEST!!!)
 
 
 
#15
14.04.2011 18:18:20
Алексей, Ctrl-J нажимать, когда курсор находится в поле "Найти".
 
 
 
#16
14.04.2011 22:34:30
Я уж и левый Ctrl+J и правый, а всё бестолку... Данные не найдены. Хотя я сам вводил перенос строки в ячейку...  
А это точно под 2003-им работает?
С уважением, Алексей (ИМХО: Excel-2003 - THE BEST!!!)
 
 
 
#17
14.04.2011 22:48:58
Леш, у меня работает(2003). И в 2007 тоже. Срабатывает даже с vbcrlf, только vbcr оставляет.
Я сам - дурнее всякого примера! ...
 
 
 
#18
14.04.2011 22:52:36
Владимир,  
спасибо! Я смутно помнил, что как-то вводил перевод строки в поле поиска еще в Excel 5 (под Win 3.11), но забыл как.  
 
Алексей,  
в 2007 и в 2000 работает. Попробуй ввести а<Ctrl+J>б (буква перед и буква после), чтобы нагляднее было.
 
 
 
#19
15.04.2011 02:46:05
{quote}{login=Казанский}{date=14.04.2011 10:52}{thema=}{post}Владимир,  
спасибо! Я смутно помнил, что как-то вводил перевод строки в поле поиска еще в Excel 5 (под Win 3.11), но забыл как{/post}{/quote}  
Алексей (Казанский), а я тогда этого не знал, и вообще Excel стал воспринимать только с 8-й версии, до него мне больше нравился пакет Framework-IV со вcтроенным языком программирования Fred и возможностью подключения скомпилированных ассемблерных и С-кодов.  
 
Возможной причиной неработы Ctrl-J  у Алексея (Alex_ST) может быть, например, какая-нибудь утилита автоматического переключения раскладки клавиатуры.  
 
Вставка символа перевода строки по Ctrl-J полезна не только в поиске-замене, но и в пользовательском формате. Приложил пример, когда в ячейке нужно хранить дробное число, но отображать только целые с отброшенной дробной частью, т.е. без округления.
 
 
 
#20
11.08.2011 12:50:16
а как в формулу вставить знак абзаца, допустим в формулу СЦЕПИТЬ()?  
точнее не знак, а сам абзац, чтобы тескт с абзаца начинался
 
 
 
#21
11.08.2011 12:55:26
=СЦЕПИТЬ(СИМВОЛ(10);"текст")  
или  
=СИМВОЛ(10)&"текст"  
 
В формате ячейки надо включить "переносить по словам".
 
 
 
#22
11.08.2011 12:58:55
сочетание Alt+Enter создает новую строку в ячейке. Это равнозначно вставке СИМВОЛ(10)
 
 
 
#23
23.12.2011 13:31:21
Всех с наступающим!  
немножко реанимирую тему.  
 
Sub Удалить_переносы()  
 
   Cells.Replace What:=Chr(10), Replacement:="", LookAt:=xlPart, SearchOrder _  
       :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False  
End Sub{/post}{/quote}  
 
макрос отлично работает, есть одно небольшое НО! он не сохраняет пробел..  
Иванов  
Иван Иванович  
 
получается  
 
ИвановИван Иванович...    
есть рецепт? заранее спасибо!
 
 
 
#24
23.12.2011 13:39:50
Макрос не не сохраняет пробел... а его там в принципе не бывает.  
Ну вот как в ворде печатают  
Иванов(энтер)Иван Иванович, то есть по факту там пробела и нет.  
Тогда наверное нужна просто замена знака переноса строки на пробел, а потом trim чтобы удалить второй лишний пробел...
 
 
 
#25
23.12.2011 13:41:26
сам спросил сам решил;)
 
 
 
#26
26.12.2011 00:04:06
Можно узнать решение? Тоже нужно
 
 
 
#27
26.12.2011 00:07:48
Видимо, заменить Ctrl+J на пробел, или  
 
...  
Cells.Replace What:=Chr(10), Replacement:=" " ...  
...
 
 
 
#28
26.12.2011 00:08:06
{quote}{login=Д_Р}{date=23.12.2011 01:39}{thema=немного уточню}{post}нужна просто замена знака переноса строки на пробел, а потом trim чтобы удалить второй лишний пробел...{/post}{/quote}  
fly1, Вы это видели?
 
 
 
#29
26.12.2011 00:45:53
Вообще эта моя первая проба общения с макросами.  
Создал в VBA такую запись:  
 
Cells.Replace What:=Chr(10), Replacement:="", LookAt:=xlPart, SearchOrder _  
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False  
End Sub  
Cells.Replace What:=Chr(10), Replacement:=" "  
 
В результате идёт ошибка:  
Compile  error:  
Invalid outside procedure  
 
В справке пока ответа не нашёл. В любом случае, всем спасибо за подсказку.
 
 
 
#30
26.12.2011 01:00:55
У меня работает так  
 
Sub test()  
   Cells.Replace What:=Chr(10), Replacement:="", LookAt:=xlPart  
End Sub
 
 
 
Страницы: 1 2 След.
Читают тему
Наверх